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I SEGRETI DEL 1541 


INTRODUZIONE 


Questo manuale e' stato messo a punto per fornire all' 
utente che desideri programmare sulle unita' 1540/1541 
tutte le informazioni possibili per ottenere il massimo 
dal proprio lavoro. 

Molti utenti si limitano ad utilizzare 1' unita' a 
dischi per immagazzinare semplicemente dei programmi o 
dei dati in forma elementare e quindi non hanno compreso 
che con il disco si possono realizzare una varietà' 
infinita di operazioni. 

E' vero che il 1540/1541 e' probabilmente la piu' 
complessa delle unita' che 1' utente acquista perche' 
comprende un coordinato HARDWARE, SOFTWARE e parti 
meccaniche che non sono, nei loro completi e complessi 
movimenti, di facilissima comprensione. 

Ecco perche' non e' stato possibile raccogliere in un 
solo volume tutto quanto. Infatti, come ricorderemo piu' 
volte, ed in particolare per la gestione dei files di 
tutti i tipi e per la parte meccanica ed HARDWARE 
abbiamo pubblicato un altro volume : LE PERIFERICHE 
COMMODORE che si occupa anche delle stampanti e delle 
unita' a cassetta. 

Il presente manuale vuole essere un complemento molto 
piu' specializzato del precedente citato. 

Per questo motivo riportiamo invece che un' approfondita 
disamina dei comandi tutte le particolarita' connesse 
alla programmazione che abbiamo ritenuto importanti, il 
disassemblato del DOS, le prime pagine di memoria ed al 
termine una piccola serie di programmmi che riteniamo 
utilissimi. 

Tutti i comandi inviati dall' unita' centrale al disco 
vengono esaminati e controllati dal DISK OPERATING 
SYSTEM appunto il DOS. 
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Il DOS e' contenuto nella memoria ROM del Floppy stesso. 
La versione attuale e' chiamata: 

CBM DOS V2.6 

Mentre ricordiamo che le unitaa' centrali COMMODORE 64 
e Vie 20 sono equipaggiate con un sistema operativo 
comprendente anche il linguaggio Basic: 

BASIC 2.0 

L' accesso al DOS e' consentito ed esemplificato nel 
presente manuale con i comandi di accesso diretto. 

Per ottenere pero' il meglio sarebbe opportuno 
utilizzare il linguaggio ASSEMBLER di cui fra non molto 
uscirà' un corso: 

CORSO DI ASSEMBLER II Ed. E.V.M. 


Come sempre mettiamo a disposizione un dischetto, 
acquistabile separatamente o nell' apposita confezione 
che evita la noiosa operazione di digitazione dei 
programmi. 

Questo nostro lavoro, come del resto quasi tutti i 
manuali del settore e per quanto attentamente corretto, 
non e' certamente privo di errori e refusi tipografici. 
Per questo invitiamo i cortesi lettori a segnalarci 
quanto di inesatto troveranno. 
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CAPITOLO PRIMO 


Con 1' acquisto di un drive per floppy disk la 
potenzialità' operativa del vostro sistema e' fortemente 
aumentata. 

L'uso piu' comune di un' unita' a dischi e' per 1' 
immagazzinamento dei programmi o di dati. Immagazzinare 
programmi con un'unita' a dischi e' considerevolmente 
piu' facile che con un'unita' a cassette. Il piu' grande 
vantaggio di un'unita' a dischi e' la velocita' di 
trasferimento dati da e ai computer. Vediamo un 
confronto: 

Salvare un programma di 3 K BYTE richiede: 

75 secondi con la cassetta 
12 secondi con il disk drive. 

Un altro vantaggio e' che un dischetto può' 
immagazzinare molti piu' programmi che non una cassetta, 
anche se questo ragionamento, in particolare con 
l'unita' 1541, e' relativamente sfruttato. 

Inoltre per caricare un programma si può' consultare la 
Directory del disco per vedere quali programmi sono 
presenti sul dischetto stesso. 

Infatti sebbene anche la cassetta consenta di 
immagazzinare piu' di un programma, la ricerca per 
ciascuno di essi e' molto piu' laboriosa e richiede una 
grande quantità' di tempo. 

Molte di queste pagine provengono dal manuale LE 
PERIFERICHE COMMODORE Ed. EVM, al quale faremo spesso 
riferimento ed al quale rimandiamo per i seguenti 
argomenti : 
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-Trattamento dei files sequenziali e Random. 

-Trattamento di TUTTI i tipi di periferiche, come 
stampanti,cassette, ecc. 

-Notizie relative all' HARDWARE. 


Molti concetti vengono anche ripetuti piu' volte, mentre 
altri sono dati per scontati, in particolare quelli 
relativi alle piu' comuni tecniche di programmazione che 
dovrebbero essere conosciute. 

Infine i riferimenti, specie nella parte iniziale, alla 
cassettta sono fatti perche' la gran parte degli utenti 
prima di passare al disco inizia a lavorare con 1' 
unita' a cassetta o DATASETTE. 


FILES DISCO 


I dischetti possono immagazzinare sia files programmi 
che files di dati. X differenza che sulle cassette, sui 
dischi si possono immagazzinare i files di dati in tre 
diversi modi, sempre sotto controllo di un programma: 


FILES SEQUENZIALI 
FILES RELATIVES 
FILES RANDOM 
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I files relatives sono gestibili direttamente solo con 
le unita' che abbiano il DOS 4. Per gli utenti VIC e 
CBM64 abbiamo pero' messo a punto una routine che 
consente di utilizzarli comunque. 


CONFRONTO FRA MANIPOLAZIONE DI FILES SU DISCO E SU 
CASSETTA. 


La manipolazione di files su cassetta differisce in modo 
sostanziale da quella degli stessi files su disco per le 
seguenti ragioni: 


1 - La velocita' di accesso ai dischetti e' molto piu' 
alta di quella delle cassette. 

2 - Non esistono INIZI e FINE sulla superfice magnetica 
dei dischetti. Una unita' a dischi accede con facilita' 
a qualsiasi punto del disco cosa che ovviamente non 
avviene per la cassetta. 

3 - La manipolazione di files di dati su cassetta o su 
disco differisce perche' la formattazione dei dati ed i 
metodi di accesso sono sostanzialmente diversi. 


Non facciamoci ingannare dalla velocita' meccanica di 
rotazione del disco o della cassetta che se non e' 
uguale non determina comunque una grande differenza. 

La cassetta registra i dati in maniera sequenziale 
durante lo scorrimento del nastro e nello stesso modo li 
rilegge. 
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Al contrario il disco immagazzina dati su un gran numero 
di tracce concentriche. 

La testina di lettura della cassetta e' ferma ed aspetta 
che il nastro si posizioni per poter eseguire operazioni 
di lettura o scrittura, al contrario la testina dell' 
unita' a dischi si sposta avanti ed indietro mentre il 
dischetto gira per trovare il giusto punto in cui 
operare. 

Per usare 1' unita' a dischi non' e' indispensabile 
sapere come le informazioni sono immagazzinate sulla 
superfice magnetica del supporto, tuttavia le conoscenze 
di questi argomenti renderanno piu' efficiente la 
programmazione. 

Per questo inizieremo la nostra discussione sui files 
disco descrivendo il modo in cui i dati sono 
immagazzinati sulla superfice magnetica del floppy. 


COME IL DISCO IMMAGAZZINA I DATI. 


Un dischetto immagazzina i dati su un numero di tracce 
circolari concentriche. 

Queste tracce sono*a loro volta divise in settori. 
Differenti unita' scrivono un diverso numero di tracce 
sul disco. 

Alcuni drives scrivono su ambedue le facce del dischetto 
come gli 8250, gli altri come il 2040,3040,8050 e 
1540/1541 su una sola. 

I drives dell' unita' a dischi non scrivono dati lungo 
1' intera lunghezza della traccia, che e' utilizzata 
invece per la memorizzazione dei segnali di riferimento. 
Per far questo sarebbe necessario un complesso sistema 
di indirizzamento. 
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Infatti se si utilizzasse 1' intera superfice della 
traccia dovremo presumere che, dato che ci troviamo di 
fronte a tracce concentriche nessuna traccia avrebbe la 
lunghezza di un' altra e pertanto non potrebbe contenere 
la stessa quantità' di dati. 

Per risolvere questo problema che inevitabilmente 
porterebbe ad un appesantimento eccessivo della gestione 
del Sistema Operativo su disco, le tracce sono state 
divise in settori. 

Ogni settore contiene esattamente lo stesso ammontare di 
informazioni. 

Nel caso dei dischi COMMODORE ogni settore contiene un 
blocco di dati pari a 256 Bytes. 


DIRECTORY DEL DISCO E BAM 


Due settori di ogni disco sono usate per 1' indice del 
dischetto stesso. 

Il primo,o DIRECTORY TRACK contiene il nome che e' 
stato assegnato al dischetto, seguito dalla BAM o BLOCK 
AVAILABILITY MAP che identifica i blocchi allocati 
cioè' già' utilizzati per files di dati o di programmi 
oppure riservati con istruzioni di BLOCK-ALLOCATE. 

Il secondo settore contiene i nomi di tutti i files 
presenti sul dischetto con 1 ' indicazione del tipo di 
file ,la posizione del primo blocco utilizzato dal file, 
il nome del programma e la sua lunghezza. 

Come abbiamo detto la BAM e' in pratica la 
rappresentazione della memoria disponibile su disco e 
della distribuzione degli spazi. 

Quando il sistema deve immagazzinare dati su disco, la 
BAM viene automaticamente collegata con il DOS per 
determinare quale spazio e' disponibile e quindi quanti 
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blocchi possono essere salvati. 

Se e' disponibile un spazio sufficiente per 
immagazzinare un dato file, allora 1' operazione sara' 
coronata da successo e la BAM aggiornata per tener conto 
dello spazio utilizzato. 

Se invece il DOS riterrà' che lo spazio non e' 
sufficiente allora verrà' riportato un errore e 1' 
operazione stessa di salvataggio non avra' effetto e 
verrà' solo registrato il nome del programma nella 
Directory con un asterisco. 


Confronto con la cassetta 


I files immagazzinati su cassetta non necessitano di una 
Directory o indice all' inizio del nastro. 

Se dieci files sono immagazzinati su cassetta e il 
programma specifica un accesso particolare al sesto 
file, il fatto di avere una directory all' inizio del 
nastro non aiuta certo 1' unita' a cassette a trovarlo 
meglio! 

Poiché' un file su cassetta può' avere una lunghezza 
qualsiasi, non esiste mezzo di associare il numero del 
file ad una determinata posizione del nastro. 

Questo anche perche' non e' possibile avere del comandi 
che facciano andare il nastro prima forte e poi piano 
senza usare i tasti dell' unita' a cassette. 

Ne' per quanto utile, c' e' da fidarsi eccessivamente 
del contametri della DATASETTE tutto meno che preciso e 
che comunque non potrebbe tener conto dell' allungamento 
o dell' accorciamento del nastro dovuto alle variazioni 
termiche o al punto di scrittura. 

Come abbiamo detto in precedenza 1' unico sistema per 
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evitare di leggere i files che precedono quello oggetto 
della nostra ricerca e' di posizionarsi con il tasto 
FORWARD un po' prima dell' inizio (probabile) del file. 
In caso contrario e' necessario far rileggere tutti i 
files precedenti. 

Al contrario con una unita' a dischi si può' andare 
direttamente all' inizio di un qualsiasi file sulla 
superfice del dischetto stesso, perche' ogni settore del 
disco e' egualmente accessibile. 

Per rendere possibile questo e' quindi necessario che 
ogni dischetto abbia un indice che contenga il nome di 
tutti i files ivi registrati e l'indirizzo del settore 
di partenza. 

Questo indice, simile quindi all' indice di un libro, e' 
appunto la DIRECTORY che fornisce anche il tipo dir file 
che e' stato memorizzato e 1' occupazione in blocchi di 
questo. 

Quando un file di dati su disco e' aperto, 1' unita' 
prima di tutto leggera' la Directory dalla quale ottiene 
1' indir.izzo del settore in cui ha inizio il file. Poi 
la testina di lettura/scrittura potrà' posizionarsi 
direttamente all' inizio del file aperto. 

La Directory contiene le seguenti informazioni: 


-Nome del disco 

-Identificatore (ID) del disco 
-Numero di versione del DOS 
-Nome dei Files 
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-Tipo dei Files 
-Numero dei blocchi usati 
-Puntatore al primo blocco dei Files 
-Numero dei blocchi disponibili 

Spiegheremo approfonditamente nel resto del manuale. 
Vediamo ora come vengono trattati i records di un file 
su disco. 

FILES RELATIVES 


Tutti i records presenti in un file relative hanno la 
stessa'lunghezza. 

Per questo e' facile calcolare 1' indirizzo di settore 
per un singolo record di un file relative. 

Supponiamo di avere un file relative in cui i singoli 
records occupino mezzo settore. Cioè' che ne entri due 
per settore. 

Allora il decimo record di questo file relative sara' 
semplicemente rintracciabile sul quinto settore dall' 
inizio del file. 


\ ! !ATTENZIONE!! ! 


I files relatives sono disponibili direttamente solo con 
le CBN BASIC VERSION 4.0 e oltre, usando il DOS 2.0 e 
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oltre. 

Come abbiamo detto in questo manuale e' riportata una 
subrotine che consentirà' anche agli utenti del VIC-20 e 
CBM64 di utilizzare i Files Relatives oltre ad altre 
particolarita ' su questi files. 


FILES SEQUENZIALI 


I records di un file sequenziale possono avere 
differenti lunghezze. 

Per questo non si può' calcolare il settore sul quale 
deve essere rintracciato un particolare record di un 
file sequenziale, appunto perche' la lunghezza del 
singolo record e' sconosciuta. 

La testina del dischetto può' andare direttamente all' 
inizio di un file sequenziale, poiché' 1' indirizzo del 
settore e' dato dalla Directory, ma una volta trovato 
questo inizio il file deve essere letto fino a quando 
non si trova il record desiderato. 

La ricerca e' quindi sequenziale e quindi simile a 
quella su nastro. 

Per trovare il decimo record di un file e' quindi 
necessario leggere i precedenti 9 records. 


NOTA 

Tutte le versioni dei dischi della Commodore sono 
abilitate alla gestione dei files sequenziali. 


FILES SEQUENZIALI E RELATIVES 
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Se i records di un file dati sequenziale devono essere 
letti sequenzialmente cioè' uno dopo 1' altro, gran 
parte dei vantaggi dell' accesso casuale tipico dei 
dischi viene perso. Ed allora perche' usarli?. 

Prima di tutto perche' non su tutte le unita' a dischi 
della Commodore e' possibile la gestione dei FILES 
Relatives. 

Secondo, e molto piu' importante e' che con i files 
sequenziali si riesce ad immagazzinare molte piu' 
informazioni che con i relatives. Si immagazzinano in 
forma piu' densa. 

Si sfrutta cioè' meglio la capacita' di memorizzazione 
dei disco. 

Consideriamo il seguente esempio. 

Si abbiano due nomi ed indirizzi come segue: 


ALESSANDRO MARCELLOZZI 

VIA MARTIRI DELLA LIBERAZIONE 7 

20036 MILANO 


e 


MARIO ROSSI 
VIA ROMA 1 
31073 ROMA 


Supponiamo che questi due nomi ed indirizzi facciano 
parte di un file MAILING LIS termine che troverete 
spesso per indicare programmi che gestiscono insiemi 
piu' o meno dettagliati di indirizzi con tecniche 
variamente sofisticate. 

Ogni nome ed indirizzo diverrà' quindi un record entro 
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il file dati. 

Gestendo il file con il metodo relative si dovrà' 
assegnare lo stesso spazio per ogni nome ed indirizzo. 
Per questo si dovrà' tenere conto non della media di 
occupazione ma dell' indirizzo piu' lungo. Di 
conseguenza i nomi e gli indirizzi piu' corti lasceranno 
parte del disco inutilizzato. 

Nell' esempio precedente, per immagazzinare il primo 
nome ed indirizzo avremo bisogno di 69 bytes 
(considerando gli spazi di separazione) mentre per il 
secondo solo di 34, e quindi circa la meta'. 

Ma usando un file relative dovremo dimensionarlo a 
records di 69 almeno per cui il secondo nominativo 
lascera' meta' del suo spazio inutilizzato. 

Al contrario un file sequenziale assegna ad ogni record 
solo lo spazio che effettivamente gli necessita. 

Per cui lo sfruttamento e' massimo e su grandi quantità' 
di dati si fa indubbiamente sentire. 


INDIRIZZAMENTO DEL DISCO 


I settori assegnati su disco ad un file di dati non sono 
FISICAMENTE sequenziali sulla superfice del dischetto 
anche quando si utilizza un file di tipo SEQUENZIALE. 

Per esempio, quando si aggiungono records ad un file 
esistente, questi devono essere registrati senza andare 
a cadere sul file successivo. 

Per questo il file dovrà' essere proseguito, in casi di 
aggiunte, dovunque esistano settori liberi sulla 
superfice del dischetto. 

II file si contrae quando si cancellano records per cui, 
con questa operazione si rendono disponibili nuovamente 
dei settori precedentemente allocati. 
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Alla funzione di distribuzione del file sulla superfice 
del disco e' preposto il DOS cioè' Disk Operating System 
per cui la distribuzione su tutta la superfice del disco 
non presenta nessun problema quando si lavora con i 
files sequenziali. 

Come vedremo in maniera in modo piu' approfondito nel 
seguito,e' presente un puntatore in ogni settore che 
dice in pratica dove indirizzarsi per la successiva 
lettura o scrittura. 


APERTURA DI UN FILE SU DISCO 


Solo 5 buffers di memoria sono disponibili su ogni 
unita' a disco 1541 per la manipolazione dei files. 

Non appena si accede ad ogni file disco due di questi 
buffers sono usati per operazioni di controllo. 

Ciò' lascia 3 buffers in ogni unita' attraverso cui si 
può' accedere ai files data stessi. 

Vedremo poi le necessita' di buffers per ogni tipo di 
files. 


INDIRIZZI SECONDARI 


Il Basic usa 16 indirizzi secondari: da 0 a 15. Ogni 
comando di OPEN nel Basic deve specificare un indirizzo 
secondario.Gli indirizzi secondari sono usati nella 
seguente maniera: 


1-L' indirizzo secondario 0 e' usato per caricare i 
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programmi dal disco alla memoria centrale del computer. 

2- L' indirizzo 1 e' usato per salvare i programmi dalla 
memoria centrale del computer all' unita' a disco. 

3- Gli indirizzi secondari da 2 a 14 sono usati per 
accedere ai files di dati ( sono appunto 13 come 
ricordavamo prima).Si può' selezionare uno qualunque di 
questi indirizzi secondari, ricordando che pero' poi non 
possono essere usati per un' altra operazione di OPEN su 
altro file di dati. 

4- L' indirizzo secondario numero 15 apre uno speciale " 
CANALE DI COMANDO" che e' usato per accedere allo STATUS 
del dischetto e per consentire una delle speciali 
operazioni che vedremo successivamente. 


IL CANALE DI COMANDO (15) 


Il canale di comando necessita di una particolare 
attenzione perche' e' veramente molto importante. 

Usando il disco del VIC, come del resto quelli della 
serie 3000, si dovrebbe sempre aprire il canale di 
comando per effettuare una qualsiasi operazione su 
disco. 

Si dovrebbe inoltre lasciare questo canale aperto fino a 
quando si operi comunque ed in qualsiasi modo su disco. 
Inoltre come abbiamo detto si usa il canale di comando 
per le operazioni speciali su disco e per interrogarlo 
sullo STATUS. 


FORMATTAZIONE DI DISCHETTI NUOVI 
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Prima di adoperare un dischetto nuovo questi deve essere 
preparato. Questo sistema si chiama FORMATTAZIONE. 

Che cosa s'intende per formattazione? 

Ogni unita' a dischi' ha una sua speciale 
caratteristica. Un dischetto e’ diviso in tracce e la 
informazioni vi vengono scritte su ogni traccia in 
maniera simile a come la musica viene registrata sui 
dischi per i fonografi. Il numero di tracce per 
dischetto varia da un fabbricante all'altro. 

Ogni traccia e' divisa in settori il cui numero può' 
anche esso variare. Durante il processo di formattazione 
vengono scritti sul dischetto dei settori vuoti. Un 
settore scritto in ogni traccia e indirizzi, e questi 
settori stessi sono riconosciuti tramite indirizzi 
univoci. Ciò' consente al sistema operativo su disco 
(DOS) di identificare le singole posizioni su dischetto. 
Ad ogni settore viene dato un codice cosi' che il 
sistema operativo su disco possa riconoscere se questo 
dischetto e' stato formattato proprio con quel tipo di 
unita' a dischi. Il codice di formattazione per il 
1541e' 2A. 

NOTA 

Per un approfondimento su questa operazione vedere il 
volume LE PERIFERICHE COMMODORE. 


Ogni settore e' suddiviso in blocchi ognuno dei quali 
può' contenere 256 caratteri. 

Il compito finale della formattazione e' di costruire la 
directory del dischetto. La directory e' un indice di 
tutti i files contenuti nel dischetto. E' presente 
inoltre uno speciale insieme o blocco di dati chiamato 
BAM cioè' Block Availability Map che indica se un dato 
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blocco, che ricordiamo di 256 caratteri, su un dischetto 
e' già' stato utilizzato oppure se ancora disponibile. 
La Directory e la Barn si possono ritrovare sulla traccia 
18 del dischetto. 
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CAPITOLO SECONDO 


OPERAZIONI SU DISCO 


In aggiunta alle operazioni di scrittura e lettura files 
su dischetto che vedremo separatamente e 
dettagliatamente per ogni tipo di accesso , il Basic 
della Commodore relativo a questo tipo di unita' 
consente le seguenti operazioni; 


1- Preparazione di un nuovo dischetto. 

2- Cancellazione di un disco vecchio e preparazione per 
un nuovo uso. 

3- Visualizzazione della Directory del disco per vedere 
quali file sono immagazzinati, quanto spazio questi 
hanno occupato e quindi quanto ne resta utilizzabile. 

4- Copia di un file 

5- Copia di un intero dischetto 
é-Cancellazione di un file o rimpiazzo dei files 
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PREPARAZIONE DI UN DISCO E INIZIALIZZAZIONE 


A differenza di quanto avviene per la cassetta non si 
può' prendere un dischetto vergine, inserirlo nel drive 
ed incominciare a scrivere i dati. 

Per prima cosa infatti la superfice magnetica deve 
essere preparata ad accogliere i dati, i settori devono 
essere fissati e poi devono essere scritte la Directory 
e la BAH. 

Inoltre al dischetto deve essere assegnato un nome. 

Si possono usare 1 dischi di una marca che si desidera, 
ma la casa che li costruisce non sa a priori se saranno 
adoperati su una marca di computer invece che su un' 
altra e all' interno della stessa marca essi possono 
venire utilizzati per un numero diverso di traccce e 
settori, ecco il motivo della preparazione o meglio 
della loro IDENTIFICAZIONE. 

Inoltre si può' ripreparare per un nuovo uso un vecchio 
dischetto, naturalmente purché' sia in condizioni 
fisiche integre e sopratutto non sia rigato. 

Questa operazione cancella naturalmente tutti i dati 
vecchi, compresa la BAM e la Directory. 

Di norma la preparazione di un dischetto per il suo uso 
viene fatta in modo diretto, anche se questa routine 
può' essere inserita in un menu' di programma. 
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PREPARAZIONE 


Per preparare un dischetto si deve per prima cosa 
eseguire un OPEN sul canale di comando. 

Poi si eseguirà' un comando PRINT# usando il file logico 
specificato nella lista dei parametri del comando OPEN. 
Il comando PRINT# deve avere la seguente lista di 
caratteri, o parametri, racchiusa fra virgolette; 


NEW o N 

che identifica appunto 1' operazione da eseguire. 

: (due punti) 
di separazione 

NOME DEL DISCO 

un nome qualsiasi che vogliamo dare 
, (virgola) 

anche questa di separazione 


XX 

identificatore del disco 
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E quindi il formato generale del comando che segue il 
PRINT// Sara': 


"NEW:NOME DEL DISCO,XX" 


NOTA 

NEW può' essere rimpiazzato o abbreviato con la sola 
lettera N. 

Il nome del disco deve essere una stringa di lunghezza 
non superiore ai 16 caratteri. 

XX deve essere un coppia di caratteri alfanumerici. 


Nel comando OPEN con il quale si accede al canale di 
comando si può' mettere un qualsiasi numero di file 
logico, ma si deve specificare che 1' unita' fisica e' 
la numero Sei' indirizzo secondario che deve essere il 
numero 15. 

Il comando NEW viene usato, su un dischetto non 
FORMATTATO oppure su un dischetto che 1' utente vuole 
riformattare e del quale quindi non interessano piu' i 
dati. 

Quando si usa il modo RIFORMATTAZIONE di un disco 
vecchio Sara' cancellata la Directory preesistente e 
reinizializzata la BAM rendendo quindi nuovamente 
disponibili tutti i blocchi del dischetto. 

In questo caso non dovremo specificare XX cioè' I' 
identificatore. 

Vediamo qualche esempio. 


OPEN 1,8,15 
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PRINT#1,"NEW: ESEMPIO,IO" 


RISULTATO: Viene aperto il canalé di comando, formattato 
un disco che avra' per nome ESEMPIO e per identificatore 


01 . 


Esempio: 

0PEN3,8,15 

PRINT#3,"N:TEST,11" 

RISULTATO: Come il precedente ma con un disco di nome 
TEST e identificatore 11. 


Riportiamo inoltre un esempio di riformattazione di un 
dischetto usato. 


0PEN15,8,15 
PRINT#15,"N:NUOVO" 


RISULTATO: Con questo comando al disco usato viene 
assegnato un nome NUOVO, la Directory e la BAM vengono 
riformattate e resta solo 1' identificatore 
preesistente. 
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NOTA 

E' bene ricordare che questa ultima procedura potrà' 
funzionare SOLO se il dischetto e' già' stato formattato 
in precedenza e su quello stesso tipo di unita'. 

Il tempo necessario per formattare un disco e' di circa 
2 minuti. 

Molto inferiore e' invece 1' operazione di 
riformattazione. 


NOTA 

Il comando NEW al disco, che infatti viene dato fra 
virgolette non deve essere confuso con il NEW del BASIC 
che cancella il programma in memoria ed azzera le 
variabili. 


ERRORI 


Se per una qualsiasi ragione il disco non può' essere 
formattato allora il LEO rosso presente sulla parte 
frontale del drive, inizierà' a lampeggiare (nelle 
unita' a doppio floppy si accende solo la luce rossa). 

La ragione può' essere una delle seguenti; 


1 - Si e' dimenticato di inserire il disco nell' unita' 
oppure si e' dimenticato di chiudere le alette o si e' 
inserito il disco al rovescio. 

A questo proposito e' bene ricordare che il metodo di 
aprire un' altra finestrella per poter utilizzare il 
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dischetto da tutte e due le parti e' pratica 
assolutamente da evitare. 

2- 1 comandi non sono stati dati correttamente. 

E' bene porre particolare attenzione alla punteggiatura 
che e' 1' errore in cui si cade piu' di frequente. Essa 
infatti deve essere SCRUPOLOSAMENTE osservata nelle sue 
regole. 

3- 11 disco ha la fascetta di protezione. 

4- 11 dischetto e' realmente difettoso. 

5- L' unita'a a dischi e' difettosa. 


NOTA 

Sara' bene vedere in fondo al manuale le tavole di 
errore per un maggior approfondimento. 

INIZIALIZZAZIONE 


Benché' non sia indispensabile questa funzione sul drive 
1540 o 1541 può' accadere talvolta di doverla usare. 

Per inizializzare il dischetto e' necessario eseguire un 
OPEN sul canale di comando e successivamente un comando 
di PRINT# seguito dalle parole fra virgolette 
"INITIALIZE" o dalla letterea "I". 

Il comando "I" allinea la testina di lettura/scrittura 
con la traccia 1 del dischetto. 

Successivamente la testina si posiziona sulla traccia 
18, legge il nome del disco ed il suo identificatore e 
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carica queste informazioni nella memoria del Disk 

Operating System. 

I dischi sono normalmente inizializzati in modo 
programma e nessun dato sulla superfice del disco e' 
variata durante questa operazione che quindi può' anche 
avvenire con la finestrella coperta. 

Esempio 


10 0PEN1,8,15 
20 PRINT#1,"INITIALIZE’' 


oppure 


10 0PEN1,8,15 
20 PRINT#1,"I" 


Si può' anche usare la forma abbreviata: 
0PEN1,8,15,"I" 


che si adopera in forma diretta quando si inizia ad 
operare su disco. 


VALIDATE 


Dopo che un dischetto e' stato usato per molto tempo, 
può' succedere che la Directory debba essere 
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riorganizzata. 

Infatti quando dati e programmi sono stati ripetutamente 
salvati (SAVE) e cancellati (SCRATCH), di queste 
operazioni possono esserci rimaste numerose tracce, in 
particolare in piccoli blocchi sparpagliati, appunto 
troppo piccoli perche' possano essere riutilizzati. 

In effetti la funzione di VALIDATE e' quella di 
ricostruire la BAH del disco leggendo i file presenti 
nella DIRECTORY. 

Se durante questa operazione viene incontrato un errore 
allora la funzione di ricostruzione viene sospesa e si 
ritorna alle condizioni di partenza. 

Il comando VALIDATE rlorganizzerra' allora il dischetto 
in modo tale che si possa disporre del massimo spazio 
effettivamente disponibile. 

! ! !ATTENZIONE!! ! 

C e' un pericolo nell' uso di questo comando. Quando si 
usino i FILES RÀNDOM i blocchi ALLOCATI saranno 
DE-ALLOCATI con questo comando. Per questo motivo il 
VALIDATE non dovrebbe mai essere usato quando in un 
dischetto sono presenti i files random. 

Naturalmente e' un comando che si usa in forma diretta 
in una delle due forme: 

PRINT#15, "VALIDATE" 

PRINT//15,"V" 
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RENAFC 


Questo comando consente di cambiare nome ad un file di 
programmi o di dati. 

In effetti si tratta di una operazione molto veloce 
perche' 1' unico cambiamento che avviene e' nella 
Directory del disco. 

Sul disco naturalmente non deve esistere già' un file 
con lo stesso nome utilizzato nel RENANE perche' in 
questo caso 1' operazione non potrà' avvenire ed avremo 
una segnalazione di errore: 

FILE EXISTS. 

Il formato di RENANE e': 

PRINT#15,"RENANE0:vecchio nome=nuovo nome" 

0 nella forma abbreviata R al posto della lettera 
RENANE. 


SCRATCH 


Questo comando consente di cancellare files e programmi 
dal disco rendendo disponibili i blocchi per nuove 
informazioni. 

Si possono cancellare programmi uno alla volta o in 
gruppo come possiamo vedere dagli esempi. Il formato 
generale del programma e' il seguente: 
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PRINT//15,"SCRATCH0:nome del programma", 
o abbreviando, S al posto della parola SCRATCH. 

ESEMPI 

Ammettiamo che siano presenti i seguenti files: 

TEST,TRAIN,TRUCK,TAIL 
possiamo usare: 

PRINTy/15,"S0:TR*" 

se si desideri cancellare sia TRAIN che TRUCK. Usando 
invece: 


PR1NT#15,"S0:T*" 

li cancelleremo tutti. Cancelleremo cioè' tutti i files 
che iniziano per T. 

Se per esempio la directory contenesse i files KNOW e 
GNAW usando: 

PRINT//15,"S0:?N?W" 

cancelleremo ambedue i programmi in quanto il ? 
sostituisce i caratteri ignoti all' inizio o nel mezzo 
del nome del file. 
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COPY 


Questo comando consente, come del resto e' implicito nel 
nome, di effettuare una copia di un qualsiasi file di 
dati 0 programmi. 

Nel caso si disponga di un solo drive e' ovvio che la 
copia può' essere fatta solo sullo stesso dischetto. 

Il form«_to di questo comando e': 

PRINT#15,"CORVO:nuovo file=0:vecchio file" 

oppure usando la lettera G al posto della parola COPY. 

Questo comando può' anche essere usato in modo 
interessante per la concatenazione di files sequenziali. 

Esempio: 

PRINT#15,"CO: MAILING FILE=0: NOME,0 : INDIRIZZO,0: TELEFONO" 
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CAPITOLO TERZO 

CARICAMENTO DI UN PROGRAMMA IN LINGUAGGIO MACCHINA 


I programmi in linguaggio macchina sono manipolati in 
maniera leggermente differrente rispetto ai programmi 
Basic. 

Un programma in linguaggio macchina e' trasferito dal 
floppy al computer utilizzando un indirizzo secondario 
uguale a 1.Quando viene utilizzato un indirizzo 
secondario uguale a 1 il programma e' caricato in modo 
assoluto il che equivale a dire che viene caricato nella 
memoria incominciando dall'indirizzo specificato nei 
primi 2 byte del file su disco e non come i normali 
programmi Basic a partire dall'inizio della memoria 
disponibile. Un esempio: 

LOAD "PROGRAMMA MACCHINA",8,1 

Caricherà' il programma in linguaggio macchina a un 
indirizzo assoluto. Per esempio il programma può' essere 
stato fissato perche' parta dall'indirizzo decimale49152 
ed andra' pertanto in esecuzione con un comando: 

SYS 49152. 

Se provate a caricare un programma in linguaggio 
macchine senza l'indirizzo secondario e provate a 
digitare il RUN molto probabilmente vedrete apparire il 
messaggio: 

SYNTAX ERROR IN..-... 

Allo stesso modo, provando ad eseguire il LIST del 
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programma in linguaggio macchina avrete visualizzato dei 
dati che non hanno alcun senso. 

E' da notare che i programmi in linguaggio macchina non 
hanno una differrenziazione particolare dai programmi in 
basic nella directory, infatti entrambi vengono 
visualizzati, memorizzati come files di tipo PRG cioè' 
PROGRAM. 

Normalmente possiamo concludere che se dopo aver scritto 
RUN risulterà' un messaggio di; 

SYNTAX ERROR IN.... 

sara' un programma non scritto in Basic ma in linguaggio 
macchina. In questo caso dovremo resettare il computer 
anche con un SYS 63478 e ricaricare con il comando: 

L0AD"N0ME DEL PROGRAMMA",8,1. 

Tuttavia il programma potrebbe non partire con un RUN, 
in quanto potrebbe avere la necessita' di un SYS cioè' 
di un salto a quel determinato indirizzo. Per questo 
sara' necessario trovare l'indirizzo di partenza di 
questo programma. Successivamente spiegheremo portando 
anche un esempio come fare a listare tutti i parametri 
relativi a un programma. 

Uno di questi parametri e'I'indirizzo di caricamento. 
Questo indirizzo di caricamento o LOAD ADDRESS e' 
normalmente l'indirizzo di esecuzione iniziale del 
programma e può' essere richiamato con um comando: 

SYS LOAD ADDRESS. 

Si può' trovare l'indirizzo iniziale o il LOAD ADDRESS 
di un programma con la seguente utility: 

10 OPEN 1,8,2,"nome programma,P,R" 
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20 GET#1,X$:IF X$="" THEN X$=CHR$(0) 

30 LB=ASC{X$) 

40 GET#1,X$:IF X$="" THEN X$=CHR$(0) 

50 HB=ASC(X$) 

60 CLOSE 1 

70 AD=HB*256+LB 

80 PRINT"LOAD ADRESS:";AD 

Il programma mostrerà' il LOAD ADRESS di un programma 
qualsiasi. Qui il file programma e' aperto come un file 
di dati. L'indirizzo di partenza e' immagazzinato come i 
primi due byte del file e letto utlilizzando un comando 
GET e un'appropriata tecnica di programmazione. Il primo 
byte e’ il byte di ordine basso mentre il secondo byte 
e' il byte di ordine alto che insieme compongono i due 
byte dell'indirizzo. 


IMMAGAZZINAMENTO DI PROGRAMMI IN LINGUAGGIO MACCHINA 


I programmi in linguaggio macchina sono normalmente 
scritti con un assemblatore oppure con un monitor e 
salvati utilizzando le funzioni dell'uno o dell'altro. 
Tuttavia ricordiamo che i programmi in linguaggio 
macchina possono essere anche scritti attraverso una 
piccola routine di basic con i byte individuali del 
programma scritti come valori decimali e immessi in dei 
comandi DATA. Vediamo un esempio di programma in 
linguaggio macchina scritto in basic con l'aggiunta di 
comandi DATA: 


10 SA=indirizzo di inizio 
20 EA=indirizzo di fine 
30 FOR I=SA TO EA 
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40 READ X 
50 POKE I, X 
60 NEXT I 

80 DATA . 

90 DATA . 

In questo esempio il valore decimale dell'indirizzo di 
partenza e' nella linea 10 mentre il valore di fine e' 
nella linea 20. 

I valori decimali dei singoli byte del programma in 
linguaggio macchina sono inseriti nei comandi DATA nella 
parte finale del programma stesso separati da virgola. 
Con questo sistema possono essere quindi scritti 
utilizzando il basic dei programmi in linguaggio 
macchina. Tuttavia questo sistema e' estramamente lungo 
e complicato. 

Un metodo migliore e che comunque fa risparmiare tempo 
e' di immagazzinare i programmi in linguaggio macchina 
nella loro forma reale. Con questo sistema potrete 
immediatamente eseguire il programma dopo averlo 
caricato (LOAD) senza che si renda necessario una 
conversione che come abbiamo visto e' abbastanza 
complicato. Utilizzando il seguente esempio potremo 
salvare un programma che e' già' in memoria: 


10 SA=indirizzo di inizio 
20 EA=indirizzo di fine 
30 OPEN l,8,l,"0:nome programma,p,w" 
40 HB=INT(SA/256):LB=SA-HB*256 
50 PRINT#1,CHR$(LB);CHR$(HB); 

60 POR I=SA TO EA 
70 PRINT//1,CHR$(PEEK(I)); 

80 NEXT I 
90 CLOSE 1 
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Come abbiamo detto questa routine parte dal concetto che 
il programma in linguaggio macchina sia già' nella 
memoria del computer. Se un programma e' già' codificato 
0 inserito in comandi DATA la seguente routine può' 
essere utilizzata per produrre un programma in puro 
linguaggio macchina: 


10 SA=lndirizzo di inizio 

20 EA=indirizzo di fine 

30 OPEN l,8,l"0:nome programma,p,w" 

40 HB=INT(SA/256):LB=SA-HB*256 
50 PRINT//1,CHR$(LB);CHR$(HB); 

60 FOR I=SA TO EA 
70 READ X 

80 PRINT#1,CHR$(X); 

90 NEXT I 
100 CLOSE 1 

110 DATA. 

120 DATA. 

La precedente routine scrive un programma in linguaggio 
macchina su dischetto che potrà' essere piu' tardi 
ricaricato con un comando: 

L0AD"nome del programma",8,1. 

Quindi il programma stesso potrà'essere eseguito con un 
comando: 


SYS(indirizzo d'inizio) 

Programmi in linguaggio macchina possono anche essere 
caricati ed eseguiti da programmi basic. Un programma di 
questo genere deve avere la seguentte forma: 
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10 IF A=0 THEN A=l:L0AD"nome programma",8,1 
20 SYS (starting address) 

11 comando IF nella linea 10 può' generare confusione. 
Tuttavia esso deve essere presente perche' dopo 
l'esecuzione di un LOAD all'interno di un programma 
l'interpretre basic incomincerebbe l'esecuzine sempre 
alla prima linea del programma basic. Poiché' il 
programma in linguaggio macchina normalmente non si 
sovrappone al' programmma basic in memoria, il programma 
basic originale rimane intatto e viene rieseguito. Se 
usate la routine: 

10 L0AD"nome programma",8,1 
20 SYS (indirizzo di inizio) 

11 programma continua a ricaricare, cioè' a eseguire un 
LOAD ancora una volta" sul nome del programma" e il 
comando SYS non viene mai eseguito. Se la variabile A e' 
presente il programma salta alla linea 20 al termine del 
primo comando presente sulla linea 10. Questo esempio di 
caricamento chiamato anche "LOADER" può' essere messo 
sul dischetto insieme al programma in linguaggio 
macchina. Per eseguire il programmma in linguaggio 
macchina sara' necessario dare solamente il comando; 

L0AD"loader",8 

RUM 

Questo sistema ha il vantaggio che l'indirizzo d'inizio 
del programmma in linguaggio macchina non e' necessario 
sia conosciuto perche' e' incluso nell'indirizzo SYS del 
LOADER. 
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CAPITOLO QUARTO 


TRATTAFCNTO DI FILES SEQUENZIALI COME TAVOLE 


Affinché' 1 dati possano essere correttamente manipolati 
un file di dati sequenziali deve risiedere completamente 
nella memoria del computer. Il piu' delle volte può' 
essere usata una tavola a due dimensioni. Questa tavola 
e' anche chiamata matrice perche' ogni suo elemento può' 
essere indirizzato attraverso due coordinate. A questo 
fine potrete usare una variabile a due dimensioni che 
dovrà' essere riservata con un comando DIM. Il primo 
indice corrisponderà' al data record, il secondo indice 
di dimensionamento al campo entro il record. Il seguente 
diagramma mostra un esempio di una tavola: 



Field 1 

Field 2 

Field 3 

Recordl 

D$(l,l) 

D$(l,2) 

D$(l,3) 

RecordZ 

D$(2,l) 

D$(2,2) 

D$(2,3) 

Record3 

D$(3,l) 

D$(3,2) 

D$(3,3) 

Record4 

D$(4,l) 

D$(4,2) 

D$(4,3) 

Record5 

D$(5,l) 

• 

D$(5,2) 

D$(5,3) 

Recordó 

D$(é,l) 

D$(6,2) 

D$(6,3) 
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Questa tavola e' un file completo di sei records che 
hanno tre campi ciascuno. La variabile D$ e' riservata 
con un comando; 

DIM D$(6,3). 

Per leggere un file sequenziale come una tavola e' 
necessario di creare un tale file con, per esempio, sei 
records con /tre campi ciascuno. Per far questo 
utilizzare il seguente programma: 


100 OPEN 1,8,2"TABFILE,S,W" 
110 FOR X=1 TO 6 
120 PRINT CHR$(147) 

130 PRINT"REC0RD ";X 

140 PRINT"-" 

150 FOR Y=1 TO 3 
160 PRINT"CAMP0 
170 INPUT X$ 

180 PRINT//1,X$ 

190 NEXT Y 
200 NEXT X 
210 CLOSE 1 


In questo programmma sono utilizzati due cicli le cui 
variabili sono numerate con record e file. I cicli 
incominciano rispettivamente alla linea 110 e alla linea 
150. Inserire quindi sei records. Quando il programma e' 
stato eseguito questi records saranno contenuti nel 
dischetto con il nome di TABFILE. 

Ricordarsi di salvare questo programma con il comando; 
SAVE"TABPR0G",8 
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in maniera tale che possiate usarlo successivamente. 

Questo file può' essere ora caricato dentro il computer 
come una tavola o matrice. Sono necessari due cicli 
indicizzati per la tavola; 

100 OPEN 1,8,2,"TABFILE.SEQ,S,R" 

110 DIH D$(6,3). 

120 FOR X=1 TO 6 
130 FOR Y=1 TO 3 
140 INPUT//1,D$(X,Y) 

150 NEXT Y 
160 NEXT X 
170 CLOSE 1 


Questo programma immette i dati entro la tavola. Potete 
controllare ciò' con una serie di comandi PRINT per 
vedere se i dati sono stati inseriti nel giusto posto. 
Poiché' ogni campo può' essere indirizzato con indici, 
potete dare un comando come: 

PRINT D$(l,2) 


per esaminare il secondo campo del primo record. E' di 
grande importanza essere capaci di visualizzare i campi 
di un dato record. Per questo utilizzare la seguente 
routine ricordandosi di aver prima pero' salvato il 
precedente programma: 


100 INPUT"NUMER0 RECORD: ";X 

110 PRINT"- 

120 PRINT"CAMP0 1; 

130 PRINT"CAMPQ 2: 

140 PRINT"CAMP0 3; 


";D$(X,1) 

";D$(X,2) 

";D$(X,3) 


II 
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La tavola che abbiamo visto può' essere cambiata come si 
vuole. Aggiungere per esempio le seguenti righe al 
precedente programma: 

160 PRINT"..." 

170 INPUT"CAMP0 DA CAMBIARE:";Y 

180 INPUT"NU0VI CONTENUTI: ";D$(X,Y) 

190 PRINT"0K 

200 PRINT"ALTRI CAMBIAMENTI (S/N)?" 

•210 GET X$:IF X$="" THEN 210 
220 IF X$="S" THEN 100 
230 IF X$="N" THEN END 
240 GOTO 210 

In questo caso il numero del campo che deve essere 
cambiato e' utilizzato come secondo indice. Questi e' 
accanto all'indice del record richiesto per inserire un 
nuovo elemento nella tavola. 

Questa tavola modificata deve ora essere scritta ancora 
una volta su dischetto. Per poter utilizzare la seguente 
routine, ricordando di non dimenticare di eseguire un 
SAVE del precedente programma. 

100 OPEN 1,8,2,"(©:TABFILE,S,W" 

110 FOR X=1 TO 6 
120 FOR Y=1 TO 3 
130 PRINT#1, D$(X,Y) 
l';0 NEXT Y 
150 NEXT X 
160 CLOSE 1 

Anche questa routine e' relativamente corta a causa 
dell'uso dei cicli nidificatti. 

Il simbolo (§):• nella linea 10 e' necessario per 
sovrascrivere il file esistente, cioè' per scriverci 
sopra. 
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L'accesso ai dati attraverso l'impiego di una tavola e' 
molto veloce. I tempi di accesso sono indipendenti dalla 
grandezza della tavola. Le dimensioni della tavola e 
quindi la quantità' di dati che si possono manipolare 
dipende dalla capacita' di memoria del computer, 
tuttavia il COMMODORE 64 che e' dotato di una grande 
dimensione di memoria si presta a meraviglia per questi 
impieghi. Infatti se scrivete un programma di 
manipolazione dati che occupa 8K bytes di memoria vi 
rimarranno ancora 30K bytes per immagazzinare dati. Se 
considerate quindi che l'immagazzinamento di un record 
contenente un nome e un indirizzo richiede circa 80 
caratteri potrete notare che vi rimane spazio per 
immagazzinare ben 384 records in memoria. E questo con 
un tempo di accesso che non può' essere superato da 
qualsiasi altro sistema di manipolazione dati o da 
qualsiasi altra tecnica. Tuttavia con grande quantità' 
di dati, l'immagazzinamento con sistemi sequenziali non 
e' impiegabile. 

TAVOLE DI RICERCA 


Come abbiamo detto in precedenza ogni record di dati di 
una tavola può' essere indicizzato. Poiché' si tratta di 
una tavole a due dimensioni il primo indice seleziona il 
record. Per questo, se si deve accedere a un record 
della tavola, o se questo comunque debba essere 
cambiato, l'operatore deve conoscere il numero del 
record. Tuttavia ci sono dèi files di dati per i- quali 
questo metodo non e' conveniente, in altre parole non 
esiste un sistema semplice e di facile applicazione 
nelle numerazione dei records stessi. 

In questi files il numero del record deve essere trovato 
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attraverso una ricerca fra tutti i records. Ecco un 
esempio pratico di quanto abbiamo detto. 

Per prima cosa create un file di dati con il seguente 
programma. Nomi e numeri di telefono vengono salvati con 
il seguente esempio: 

100 OPEN 1,8,2,"TELEDAT,S,W" 

110 PRINT CHR$(147) 

120 INPUT"C0GN0ME :";LN$ 

130 1NPUT"N0ME :";FN$ 

140 INPUT"C.A.P. :";AC$ 

150 INPUT"TELEF0N0 :";NU$ 

160 PRINT"INF0RMAZI0NE CORRETTA (S/N)?" 

170 GETX$:IF X$="". OR X$<>"S" 

AND X$<>"N" THEN 170 
180 IF X$="N" THEN 110 
190 PRINT#1,LN$","FN$","AC$","NU$ 

200 PRINT"ALTRI DATI (S/N)?" 

210 GETX$:IF X$="" OR X$<>"S" 

AND X$<>"N" THEN 210 
220 IF X$="N" THEN 240 
230 GOTO 110 
240 CLOSE 1 

COMMENTO AL PROGRAMMA 

Linea 100 

Il file sequenziale "TELEDAT" e' aperto per la 
scrittura. 

Linea 110 

Lo schermo viene ripulito. 

Linee da 120-150 

Sono inseriti i quattro campi da tastiera. 

Linee da 160-180 

Se i dati inseriti non sono corretti successivamente 
possono essere ancora cambiati. 
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Linea 190 

I quattro campi sono scritti su disco. 

Linee da 200-220 

Qui l'esecuzione del programma può' essere terminata. 
Linea 230 

Possiamo continuare l'input. 

Linea 240 

II file aperto nella linea 100 viene chiuso. 


Scrivete questo programma, fatelo girare e inserite 
alcuni dati. Ricordatevi di salvare il programma sul 
dischetto in modo tale da poterlo successivamente 
combinare con altri sottoprogrammi o routines. 

Se avete inserito alcuni dati probabilmente vorrete 
trovare un numero di telefono. Per far ciò' dovreste 
stampare l'intero file sulla stampante, o visualizzarlo 
sullo schermo e trovarvelo da Voi. Tuttavia questo e' un 
metodo abbastanza lento specialmente se si sono inseriti 
molti records. 

La ricerca per un numero di telefono corrispondente a 
un dato nome può' essere eseguita dal computer. Il 
sistema dovrebbe cercare nell'intera lista, trovare il 
nome desiderato e una volta trovato restituirvi il 
record completo che contiene quel nome. La seguente 
routine vi mostra come fare: 


100 OPEN 1,8,2,"TELEDAT,S,R" 

110 DIM D$(100,4):X=1 
120 INPUT#1,D$(X,1),D$(X,2),D$(X,3), 
D$(X,4) 

130 IF ST064 THEN X=X+1:G0T0 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

l60 PRINT"C0GN0ME??? ; ";N$ 
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170 POR 1=1 TO X 

180 IF D$(I,1)=N$ THEN 210 

190 NEXT I 

200 PRINT'TOGNOME NON TROVATO!":GOTO 280 
210 PRINT"COGNOME TROVATO:" 

220 PRINT"-" 

230 PRINT"COGNOME : ";D$(I,1) 

240 PRINT"NOME : ";D$(I,2) 

250 PRINT"C.A.P. : ";D$(I,3) 

260 PRINT"TELEFONO: ";D$(I,4) 

270 PRINT"-" 

280 PRINT"ALTRO (S/N)?" 

290 GETX$:IF X$="" OR X$<>"S"AND X$<>"N" THEN 290 

300 IF X$="S" THEN 150 

310 PRINT"FINE PROGRAMMA":END 

COMMENTO AL PROGRAMMA 

Linea 100 

Il file sequenziale "TELEDAT" e' aperto per la lettura. 
Linea 110-120 

La tavola e' dimensionata per 100 records e l'indice 
viene letto entro la tavola 
Linea 130 

La variabile di stato ST e' controllata per vederre se 
slamo alla fine di un file che verrebbe indicato con un 
valore di 64. Se non siamo alla fine, cioè' se ST non e' 
uguale a 64 l'indice e'incrementato e viene letto un 
nuovo record. 

Linea 140 

Il file aperto nella linea 100 e' chiuso. 

Linea 150 

Lo schermo viene pulito. 

Linea 160 

L'ultimo nome che deve essere cercato e' letto da 
tastiera e immesso nella variabile N$. 
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Linee da 170-190 

Il ciclo ricerca la tavola dei records, confrontando il 
nome del campo con il nome desiderato. Se viene trovata 
la corretta posizione il programma salta alla routine 
diuscita. 

Linea 200 

Il nome non e' stato trovato. 

Linee da 210-270 

Il record contenente il nome desiderato viene 
visualizzato. 

Linee da 280-310 

Viene consentita la possibilità' di ricercare il nuovo 
nome. 


Potete notare che questa tecnica di ricerca e' 
abbastanza veloce quando i dati sono già' caricati nella 
memoria interna del computer. Infatti la ricerca 
all'interno della memoria del computer e' piu' veloce 
che la ricerca su dischetto. 

Il programma appena visto può' anche essere facilmente 
cambiato per ricercare un altro campo invece del nome. 
Potete ricercare per il codice di avviamento postale per 
esempio. Il primo programma arresta la ricerca quando il 
primo record di dati che si voleva e' trovato. Ciò' 
tuttavia può' essere non sempre valido. Infatti per 
esempio si potrebbe voler ricercare attraverso tutta la 
tavola per un particolare codice di avviamento postale e 
desiderare che tutti quei codici di avviamento postale 
siano visualizzati, per questo sara' necessaria una 
routine diversa.Infatti questa routine deve continuare 
la ricerca anche dopo che il primo oggetto della nostra 
ricerca sia stato trovato. Il programma che vi 
presentiamo esegue quanto richiesto: 
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100 OPEN 1,8,2,"TELEDAT,S,R" 

110 DIM D$(100,4):X=1 
120 INPUT#1,D$(X,1),D$(X,2),D$(X,3), 
D$(X,4) 

130 IF ST064 THEN X=X+1:G0T0 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT"RICERCA PER C.A.P.: ";AC$ 

170 FOR 1=1 TO X 

180 IF D$(I,3)=AC$ THEN 210 

190 NEXT I 

200 PRINT"FINE DATI!":GOTO 310 


210 PRINT"-" 

220 PRINT"COGNOME: ";D$(I,1) 
230 PRINT"NOME ; ";D$(I,2) 
240 PRINT'T.A.P. ; ";D$(I,3) 
250 PRINT"TELEFONO; ";D$(I,4) 
260 PRINT"-" 


270 PRINT"ALTRO (S/N)?" 

280 GETX$:IF X$="" OR X$<>"S" 

AND X$0"N" THEN 280 
290 IF X$="S" THEN 190 
300 PRINT"RICERCA ESEGUITA" 

310 PRINT"ALTRA RRICERCA (S/N)?" 
320 GETX$:IFX$$="" OR X$<>"S" 

AND X$<>"N"THEN320 
330 IF X$="S"THEN150 
340 END 


Qui la ricerca continua se un record con il giusto 
codice di avviamento postale e' trovato. Questo succede 
nella linea 290 che ritorna indietro al ciclo di ricerca 
invece di far terminare l'esecuzione del programma 
stesso. Dopo la ricerca attraverso tutti i records il 
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programma risponde con un: 

FINE DATI 

Se avete ben compreso le operazioni che sono state 
eseguite fino ad ora potrete a questo punto scrivere un 
programma con ricerche diverse senza alcuna difficolta'. 


I SORT 


Nell'elaborazione dei dati e' spesso necessario eseguire 
un ordinamento numerico o alfabetico. 

Possiamo dire che questo fatto si e' verificato fino 
dall'inserimento nel primo computer e i programmatori 
hanno sempre cercato di risparmiare tempo e lavoro 
sviluppando sempre migliori metodi di ordinamento o 
SORT. Dobbiamo inoltre dire che il SORT consuma del 
tempo, in maniera particolare quando viene eseguito con 
un linguaggio di per se lento come il basic. Ma vediamo 
il perche' del sort. Supponiamo di avere un elenco 
telefonico in cui i nomi non sono in ordine. Malgrado la 
velocita' del disco dovrete ugualmente 
ricercare,probabilmente sull'intero elenco, dall'inizio 
alla fine per ritrovare il nome. 

Le tecniche di SORT offrono il vantaggio di diminuire in 
maniera enorme il tempo necessario alla ricerca dei 
dati. Esistono diverse tecniche di ricerca, o metodi, 
che differiscono principalmente nella velocita' di 
esecuzione. Il metodo piu' semplice confronta ogni dato 
con gli altri. Se si suppone che una tavola debba essere 
messa in ordine ascendente il primo campo della tavola 
sara' confrontato con il secondo. Se il primo e' piu' 
grande sara' scambiato con il secondo. Dopo di ciò' il 


- 48 - 



I SEGRETI DEL 1541 


primo Sara' confrontato con il terzo e cosi' via fino a 
quando l'ultimo dato non verrà' confrontato e messo nel 
giusto ordine. A questo punto il campo piu' piccolo 
Sara' all'inizio del file nel giusto ordine. 

Questo metodo potrebbe sembrare un tantino complicato, 
tuttavia eseguito in memoria e' abbastanza veloce. 
Dobbiamo ricordare pero' che questo sistema e' 
sufficiente per piccole quantità' di dati. 

Per far girare questo programma, cioè' per definire 
questo esempio per prima cosa deve essere costruita una 
tavola. Il seguente esempio utilizza una tavola con 
dodici voci contenenti dati alfanumerici e stringhe. La 
tavola viene riempita dalla seguente routine: 


100 DIM TA$(12) 
110 POR 1=1 TO 12 
120 INPUT TA$(I) 
130 NEXT I 


Questo programma consente di inserire 12 stringhe sulle 
quali Sara' quindi eseguito un SORT con il seguente 
programma: 


140 1=1 
150 X=I+1 

160 IF TA$(I) < TA$(X) THEN 180 
170 TA$(0)=TA$(I):TA$(I)=TA$(X): 

TA$(X)=TA$(0) 

180 X=X+1 

190 IF X<= 12 THEN 160 
200 1 = 1+1 

210 IF I 012 THEN 150 
220 FOR 1=1 TO 12 
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230 PRINT TA$(12) 
240 NEXT I 


La tavola e' ordinata a visualizzata sullo schermo. Se 
invece di una tavola ad una sola dimensione si desidera 
eseguire un SORT su tavole a due dimensioni, come il 
nostro file di numeri telefonici, occorrerà' cambiare 
dei campi eseguendo delle variazioni alle linee 160-170 
come segue: 


160 IF D$(I,1) < D$(X,1) THEN 180 

170 D$(0,1)=D$(I,1):D$(1,1)=D$(X,1); 
D$(X,1)=D$(0,1) 

171 D$(0,2)=D$(I,2):D$(I,2)=D$(X,2): 
D$(X,2)=D$(0,2) 

172 D$(0,3)=D$(I,3):D$(I,3)=D$(X,3): 
D$(X,3)=D$(0,3) 

173 D${0,4):.D4(I,4):D$(I,4)=D$(X,4): 
D$(X,4)=D4(0,4) 


NOTA FINALE 

Naturalmente come abbiamo detto all'inizio questi sono 
programmi scritti in basic per cui abbastanza lenti. Se 
volete utilizzare dei programmi piu' veloci dovrete 
impiegare 1'assembler per il quale vi consigliamo "IL 
CORSO DI ASSEMBLER II"edito da E.V.M. 
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CAPITOLO QUINTO 


LA STRUTTURA DEL DISCHETTO 1541 


Il dischetto del 1541 e' diviso in 35 tracce. Ogni 
traccia contiene un numero variabile da 17 a 21 settori. 
Il numero totale di settori e' 683. Poiché' la directory 
occupa la traccia 18 sono in effetti disponibili 664 
settori, ognuno dei quali contiene 256 bytes. La 
seguente tabella mostra la distribuzione delle tracce e 
dei settori per traccia: 


TRACCIA 

NUMERO DEL SETTORE 

1 A 

17 

21 

18 A 

24 

19 

25 A 

30 

18 

31 A 

35 

17 


LA BAH DEL 1541 


BAH e' un'abbreviazione di Block Availability Map, cioè' 
mappa di disponibilità' dei blocchi. In essa infatti la 
BAH indica dove, sul dischetto, un blocco e' libero o 
occupato da un file. Dopo una qualsiasi operazione su 
blocchi ( operazione di SAVE, di DELETE, eccetera ) la 
BAM viene aggiornata. Quando la BAH indica che un file 
che deve essere salvato richiede piu' blocchi di quanti 
ce ne siano disponibili verrà' segnalato un messaggio di 
errore. Quando un file e' aperto la BAM nel DOS e' 
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aggiornata e riscritta su disco quando il file viene 
chiuso. Quindi comandi che hanno funzioni di scrittura o 
di cancellazione leggono la BAM, l'aggiornano e la 
riscrivono quindi sul dischetto. 

E' facile capire che invece i comandi di lettura non 
eseguono nessun aggiornamento tanto e' vero che possono 
essere letti i dati anche da un dischetto protetto. La 
BAM sulla traccia 18 settore 0 e' organizzata nella 
seguente maniera: 


TRACCIA 18, SETTORE 0 


BYTE 



CONTENUTO 

NOTE 




TRA.jSETT.DEL PRIMO BLOCCO 
DELLA DIRECTORY 



$41 

ASCII DI 'A' 


($03) 

$00 

USI FUTURI 


($04-$8F) 


*^BIT MAP DEI BLOCCHI USATI E 
LIBERI 


* 1= blocchi liberi; 0 = blocchi usati 


Il bit map dei blocchi e' organizzato in maniera tale 
che quattro bytes rappresentino il settore sulla 
traccia. Come può' essere ben compreso dalla seguente 
tavola il primo dei quattro bytes contiene il numero del 
blocchi liberi sulla traccia. Gli altri tre bytes (24 
bits) indicano quali blocchi sono liberi e quali sono 
già' stati utilizzati in quella traccia. 
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STRUTTURA DELLA BAH PER OGNI TRACCIA 


BYTE 

CONTENUTO 

0 

Numero dei blocchi disponibili 


nella traccia. 

1 

Bit map dei settori 0-7 

2 

Bit map dei settori 8-15 

3 

Bit map dei settori 16-23 


ESEMPIO DEL CONTENUTO DI 4 BYTES DI UNA TRACCIA NELLA 
B/W 

TRACCIA 18,SETI. 0, BYTES 4-7 (TRACKl) 

00001010 00000000 00000011 11111111 
($0A) ($00) ($03) ($FF) 

10 FREE 1 = LIBERI 

BLOCKS 0 = UTILIZZATI 


Utilizzando un semplice programma potrete leggere il 
primo byte di ogni traccia nella bit map che ci da il 
numero di settori liberi in quella traccia , sommarli 
insieme e trovare il numero totale di blocchi liberi sul 
dischetto. 

Esempio: 

10 0PEN15,8,15,"I0" 

20 0PEN2,8,2,"//" 

30 PRINT//15,"U1";2;0;18;0 
40 F0RI=1T035;IFI=18THENNEXT 

50 PRINT#15, "B-P" ; 2 ; ( 1*4) : GET//2, X$ : IFX$=" "THENX$=CHR$(0) 
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50 TB=TB+ASC(X$):NEXT 
60 CL0SE2:CL0SE15:?"BL0CCHI LIBERI "TB 

LA DIRECTORY 


La directory e' la tavola di ciò' che contiene il 
dischetto. Contiene le seguenti informazioni: 

-nome del disco 

-identificatore del disco (ID) 

-numero di versione del sistema operativ o su disco ( 
DOS) 

-nomi dei file 
-tipi dei file 
-blocchi per ogni file 
-blocchi liberi 


Questa directory e' caricata nella memoria dell'unita' 
centrale con il comando: 

L0AD"$",8. 

Attenzione perche' un programmma preventivamente 
caricato in memoria sara' distrutto. 

Può' essere visualizzata una volta caricata con un 
comando LIST. 

La directory occupa tutta la traccia 18 del dischetto. 
La lista dei files segue la testata della directory o 
DIRECTORY HEADER. Ogni blocco può' contenere una lista 
massima di 8 files. Poiché' la diciottesima traccia ha 
19 blocchi e poiché' la Barn e la DIRECTORY HEADER 
occupano un blocco solo 18 blocchi rimangono per la 
lista dei files. Per questo motivo sul dischetto possono 
risiedere un massimo di 144 files che e' dato da 18 
blocchi per 8 punti d'ingresso ciascuno. 


- 54 - 



I SEGRETI DEL 1541 


FORMATO DEL DIRECTORY HEADER 


TRACCIA 18, SETTORE 0 


BYTE 

CONTENUTI 

NOTE 

144-161 

($90-$Al) 


A) 

162,163 

($A2-$A3) 


B) 

164 

($A4) 

$A0 

C) 

165,166 

($A5-$A6) 

$32,$41 

D) 

167-170 

($A7-$AA) 

$A0 

E) 

171-225 

($AB-$FF) 

$00 

NON USATI 


A) Nome del disco.Se inferiore a 16 caratteri riempito 
con spazi shiftati. 

B) Identificatore disco o ID 

C) Spazio shiftato. 

D) Carattere ASCII "2A" che sta ad indicare il formato 
di questa unita' a dischi. 

E) Come punto C) 
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IL NOME DEL DISCHETTO 


II nome del dischetto può' essere di un massimo di 16 
caratteri di lunghezza e viene stabilito all'atto della 
formattazione del dischetto stesso. 

Se viene assegnato un nome inferiore a 16 caratteri il 
resto dello spazio disponibile viene riempito con spazi 
shiftati ($A0). La seguente routine basic legge il nome, 
e lo salva, in una stringa DN$: 

100 OPEN 15,8,15,"IO" 

101 REM APERTURA DEL CANALE DI COMANDO E 
INIZIALIZZAZIONE 

110 OPEN 2,8,2,"//" 

III REM APERTURA CANALE 2 

120 PRINT//15,"B-R";2;0;18;0 

121 REM TRACCIA 18 E SETTORE 0 LETTI ED IMMESSI NEL 
CANALE 2 

130 PRINT//15,"B-P";2;144 

131 REM BUFFER-POINTER AL BYTE 144 

140 DN$="" 

141 REM LA STRINGA DN$ E' CANCELLATA 
150 REM CICLO DI LETTURA 

160 FOR 1=1 TO 16 

170 GET//2,X$ 

171 REM LEGGE UN BYTE 

180 IF ASC(X$)=160 THEN200 

181 REM IGNORA GLI SPAZI SHIFT 

190 DN$=DN$+X$ 

191 REM BYTE AGGIUNTO A DN$ 

200 NEXT 1 

210 CLOSE 2:CL0SE 15 

211 REM CHIUSURA DEI CANALI 


Dopo aver fatto girare questa routine la stringa DN$ 
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contiene il nome del disco 


IDENTIFICATORI DEL DISCHETTO 


L'identificatore del dischetto (ID) e' di 2 caratteri di 
lunghezza e viene specificato anche questo all'atto 
della formattazione del dischetto. 

Il DOS usa questo identificatore per controllare se il 
dischetto presente in quel momento nel drive e' stato 
sostituito. Se e' cosi' allora il DOS esegue un processo 
di inizializzazione. Inizializzando un dischetto si 
caricherà' la BAM entro la memoria del drive. Con questo 
sistema la BAM sulla quale si deve operare e' sempre in 
memoria, naturalmente ricordandosi di formattare sempre 
con differenti identificatori. E' da notare che se il 
sistema operativo non esegue questa funzione appena 
decritta questa dovrebbe essere fatta utilizzando un 
comando d'inizializzazione. 


IL FORMATO DELLA DIRECTORY 


In un File Entry sono presenti i parametri relativi a 1' 
indirizzo TRACCIA e SETTORE del file e i parametri che 
lo definiscono. 

I settori da 1 a 19 sulla traccia 18 contengono i files 
entry. I primi due bytes di un settore puntano al 
successivo settore della directory . In altre parole ne 
contengono gli indirizzi. 

Se non ci sono altri blocchi nella directory allora 
questi bytes conterranno i valori $00 e $FF 
rispettivamente. 
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TRACCIA 18, SETTORE 1 


BYTE 

CONTENUTI 

0,1 

2-31 

34-63 

66-95 

98-127 

130-159 

162-191 

194-223 

226-255 

($00,$01) N.TR E SETT. BLOCCO SUCCESS. 
($02-$lF) ENTRY 1 FILE 
($22-$3F) " 2 " 

($42-$5F) " 3 " 

($62-$7F) " 4 " 

($82-$9F) ” 5 " 

($A2-$BF) " 6 " 

($C2-$DF) " 7 " 

($E2-$FF) " 8 " 


FORMATO DEGLI ENTRY FILE DELLA DIRECTORY 


Ogni ENTRY FILE consiste in 30 bytes le cui funzioni 
sono descritte di seguito 


BYTE 

CONTENUTI 

0 

($00) 

TIPO FILE 

1,2 

($01,$02) 

N.TRAC. E SETT.PRIMO BLOCCO DATI 

3-18 

($03-$12) 

NOME FILE 

19,20 

($13,$14) 

PER RELATIVES (SIDE-SECTOR)* 

21 

($15) 

C.S.(LUNCH. RECORD) 

22-25 

($16-$19) 

NON USATI 

26,27 

($1A-$1B) 

** 

28,29 

($1C-$1D) 

N.BLOCCHI DEL FILE 
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*Come vedremo a proposito dei Relatives, questi Bytes 
contengono 1' indirizzo di traccia e settore del primo 
blocco di SIDE-SECTOR 

**Numero di traccia e settore del nuovo file quando 
viene riscritto utilizzando un comando ò. 


SEGNALATORI DI TIPO FILE 

Il byte 0 dell' ENTRY file indica su che tipo di file 
stiamo lavorando. I bits da 0 a 2 sono utilizzati per 
indicare 5 tipi di files. 

Il bit 7 indica se il file e' stato chiuso 
appropriatamente. La corretta chiusura di un file mette 
a uno il bit 7. Un file non chiuso viene segnalato da un 
asterisco che precede il tipo del file nel listato della 
directory. Se per esempio viene aperto un file di nome 
"TEST" senza richiuderlo e viene listata la directory 
questo file verrà' rappresentato in questo modo: 

"TEST" *SEQ 

Non appena il file verrà' chiuso l'asterisco non 
apparire' piu' nel listato della directory. Se questo 
file rimane aperto e successivamente si tenta di 
riaprirlo di nuovo verrà' visualizzato il messaggio di 
errore; 


"WRITE FILE OPEN" 
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TIPI DI FILE 

Per comprendere esattamente la funzione del byte 0 nell' 
ENTRY FILE, il tipo del file, vediamo ora una tavola di 
tutti i tipi di file: 


File type 

Bit mask opened 

Bit mask c^ 

■osed 

7654 3210 

hex 

7654 3210 

hex 

DELeted 

0000 0000 

$00 

1000 0000 

$80 

SEQuential 

0000 0001 

$01 

1000 0001 

$81 

ProGram 

0000 0010 

$02 

1000 0010 

$82 

USeR 

0000 0011 

$03 

1000 0011 

$83 

RELative 

0000 0100 

$04 

1000 0100 

$84 


Avrete notato che i bits da 3 a 6 sembra non abbiano 
alcuna funzione. Ma abbiamo verificato con l'aiuto del 
listato del sistema operativo che il bit 6 ha invece una 
funzione. Questa e' che il bit 6 di un file denota un 
file protetto. Se avete messo a uno questo bit il 
corrispondente file non potrà' essere piu' cancellato. 
Consultare il listato del disassemblato per maggiori 
informazioni. 


TRACCIA E SETTORE DEL PRIMO BLOCCO DATI 

I bytes 1 e 2 dell' FILE ENTRY indirizzano cioè' puntano 
al primo blocco dati del file. Il primo byte contiene la 
traccia e il secondo il numero di settore dove il file 
inizia. Il primo blocco dati contiene un puntatore al 
secondo blocco del file che e' anche contenuto nei primi 
due bytes del blocco, e cosi' via. L'ultimo blocco dati 
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di un file e' indicato da un primo byte che avra' un 
valore di $00 mentre il secondo byte conterrà' il numero 
di Bytes utilizzati in quest'ultimo settore. Questa 
concatenazione potrà' essere spiegata con l'aiuto del 
DOS MONITOR: 


>:B0 

AO 

AO 

AO 

AO 

AO 

00 

00 

00 

• • • 

>;B8 

00 

00 

00 

00 

00 

00 

OB 

00 


>;C0 

00 

00 

81 

13 

09 

54 

31 

32 

.T12 

>;C8 

2F 

53 

30 

31 

AO 

AO 

AO 

AO 

/SOI 

>:D0 

AO 

AO 

AO 

AO 

AO 

00 

00 

00 

• • • 

>;D8 

00 

00 

00 

00 

00 

00 

06 

00 


>:E0 

00 

00 

82 

10 

00 

44 

49 

53 

.DIS 

>;E8 

4B 

20 

41 

44 

44 

52 

20 

43 

K ADDR C 

>!F0 

48 

41 

4E 

47 

45 

00 

00 

00 

HANGE... 

>:F8 

00 

00 

00 

00 

00 

00 

04 

00 



Quanto appena visto proviene dalla directory ( traccia 
18 settore 1 ) del dischetto TEST/DEMO che trovate 
insieme al floppy. Potete seguire l'organizzazione del 
file DISK ADDR CHANCE. L'ingresso di questo file 
incomincia al byte $E2 e termina con il byte $FF. Questo 
e' un file PRG cioè' un file programma che può' essere 
riconosciuto con il tipo file $82 nel byte $E2. Questo 
file comprende quattro blocchi su dischetto. Ciò' si 
può' notare leggendo i byte da $FE e $FF. Vediamo ora 
una sezione di questo blocco, cioè’ del blocco presente 
la traccia 16 settore 0: 


> 

:00 

10 

OA 

01 

04 

OF 

04 

64 

00 

.$. 

> 

:08 

97 

35 

39 

34 

36 

38 

2C 

31 

.59468,1 

> 

:10 

32 

00 

39 

04 

6E 

OD 

99 

22 

2.9_" 

> 

:18 

93 

13 

11 

11 

11 

11 

44 

52 

.DR 

> 

;20 

49 

56 

45 

20 

41 

44 

44 

52 

IVE ADDR 

> 

:28 

45 

53 

53 

20 

43 

48 

41 

4E 

ESS CHAN 

> 

:30 

47 

45 

20 

50 

52 

4F 

47 

52 

GE PROGR 

> 

:38 

41 

4D 

22 

00 

59 

04 

6F 

00 

AM".Y./. 

> 

;40 

99 

22 

11 

54 

55 

52 

4E 

20 

.".TURN 

> 

:48 

4F 

46 

46 

20 

41 

4C 

4C 

20 

OFF ALL 
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Questo blocco contiene la prima parte del programma. Si 
può' notare che e' immagazzinato sul dischetto 
esattamente come e' immagazzinato nella memoria del 
computer. 

I comandi basic infatti sono 'convertiti in un byte 
chiamato tokens (per il processo detto di 
TOKENIZZAZIONE, vedi il volume GUIDA AL CBM 64 Ed. EVM) 
allo stesso modo che avviene nella memoria interna del 
computer. In questo modo si occuperà' meno posto e solo 
il testo Sara' convertito in codici esadecimali. I primi 
due bytes di questo blocco dati indicano il secondo 
blocco dati $10 e $0A cioè' la traccia 16 settore 10. 
Vediamo questa sezione: 


>;00 

10 

14 

34 

30 

00 

ID 

05 

AO 

..40. . . 

>:08 

00 

8D 

20 

33 

30 

30 

3A 

20 

.. 300; 

>:10 

8F 

20 

46 

49 

4B 

44 

20 

44 

. FIND D 

>:18 

52 

49 

56 

45 

20 

54 

59 

50 

DRIVE TYP 

>:20 

45 

00 

39 

05 

AA 

00 

8D 

20 

E.9. .. 

>:28 

36 

30 

30 

3A 

20 

8F 

20 

43 

600: . C 

>!30 

48 

41 

4E 

47 

45 

20 

41 

44 

HANGE AD 

>:38 

44 

52 

45 

53 

53 

00 

68 

05 

DRESS.(. 

>;40 

B4 

00 

99 

22 

11 

54 

48 

45 

..THE 

>:48 

20 

53 

45 

4C 

45 

43 

54 

45 

SELECTE 


Il programma continua in questo blocco. I primi due 
bytes contengono gli indirizzi del terzo blocco dati del 
file ($10, $14, cioè' traccia 16 settore 20): 


>;00 

10 

08 

31 

30 

30 

30 

00 

23 

..1000.# 

>;08 

06 

54 

01 

8B 

20 

43 

B2 

32 

•T.. C 2 

>:10 

35 

34 

20 

A7 

20 

4D 

54 

B2 

54 MT 

>:18 

31 

31 

39 

3A 

20 

8F 

3A 

20 

119: .: 

>;20 

32 

30 

33 

31 

20 

56 

32 

2E 

2031 V2. 

>;28 

36 

00 

45 

06 

5E 

01 

8B 

20 

6 . E. ». 

>:30 

43 

B2 

32 

32 

36 

20 

A7 

20 

C 226 

>:38 

4D 

54 

B2 

35 

30 

3A 

20 

8F 

MT 50: . 

>:40 

3A 

20 

32 

30 

34 

30 

20 

56 

: 2040 V 

>:48 

31 

2E 

32 

00 

67 

06 

68 

01 

1.2. .(. 
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Questo e' il blocco prima dell'ultimo blocco di 
programma. Avrete senza dubbio notato che i blocchi di 
dati sono nelle stessa traccia ma non sono contigui. Il 
primo blocco dati e' il blocco 0, il successivo e' il 
blocco 10, 10 blocchi dal primo blocco. 

Nove blocchi sono sempre saltati tra blocchi di dati di 
un file. Il terzo blocco di dati e' il blocco n. 20. Il 
sistema operativo rincomincia con il primo blocco se il 
blocco calcolato supera il numero piu' alto di blocco 
presente nella traccia. Poiché' la traccia 16 contiene 
21 blocchi l'ultimo blocco di dati e' il blocco n. 8. I 
primi due bytes dell'indirizzo di questo terzo blocco 
sono; 


>;00 

00 

F8 

5A 

42 

B2 

31 

20 

A7 

. ZB 1 

>:08 

20 

34 

34 

30 

00 

14 

07 

A3 

440... 

>;10 

01 

8B 

20 

53 

54 

20 

A7 

20 

.. ST 

>:18 

31 

30 

30 

30 

00 

45 

07 

B8 

1000.E. 

>:20 

01 

98 

31 

35 

2C 

22 

4D 

2D 

..15,"M- 

>:28 

52 

22 

C7 

28 

31 

37 

32 

29 

R" (172) 

> ;30 

C7 

28 

31 

36 

29 

3A 

Al 

23 

(16): # 

>;38 

31 

35 

2C 

5A 

43 

24 

3A 

5A 

15,ZCS:2 

>:40 

43 

B2 

C6 

28 

5A 

43 

24 

AA 

C F(2C$ 

>:48 

C7 

28 

30 

29 

29 

00 

66 

07 

G(0)).S. 


Qui si vede che la fine del programma e' segnata dal 
valore $00 nel byte $00. Il byte $01 da il numero di 
bytes in questo ultimo blocco { $F8 corrisponde a 248 
bytes ). Vediamo ora di trovare la grandezza del 
programma : 

3 blocchi con 254 bytes cad=762 bytes 
l'ultimo blocco =248 bytes 


totale 1100 bytes 
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che Sara' la grandezza del programma 


IL NOME DEL FILE 

Come abbiamo accennato il nome del file e' contenuto nei 
bytes da 3 a 18 della lista del file entry. Consiste di 
un massimo di 16 caratteri e come abbiamo detto se il 
nome del file e' inferiore a 16 caratteri il resto dello 
spazio che dovrebbe essere occupato e' riempito con 
spazi shiftati del valore $A0. 


TRACCIA E SETTORE DI UN NUOVO FILE PER LA SOVRASCRITTURA 

Se un file viene sovrascritto utilizzando il comando ò:, 
per prima cosa il nuovo file viene completamente 
salvato. 

Nessun nome di file viene scritto nella directory per 
questo file perche' il file stesso esiste già' sotto lo 
stesso nome. Invece l'indirizzo del primo blocco del 
nuovo file e' immesso nei bytes 26 e 27 dell'entry file. 
Viene quindi cancellato il vecchio file e aggiornata la 
BAM. Quindi gli indirizzi relativi al primo blocco dati 
del nuovo file vengono immessi all'entry file nei bytes 
1 e 2 


NUMERO DI BLOCCHI IN UN FILE 

La lunghezza di un file e' data nei bytes 28 e 29 
dell'entry file. Un file consiste di almeno un blocco ed 
al massimo può' essere di 664 blocchi, cioè' tutta la 
grandezza di un disco. Il primo byte e' il byte basso 
mentre il secondo e' il byte alto. Se per esempio 
scoprite attraverso il DISK MONITOR che un file e' di 
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lunghezza $1F,$00 il file sara' lungo 31 blocchi. 


L’ORGANIZZAZIONE DI UN FILE RELATIVE 


La differenza fondamentale fra un file sequenziale e un 
file relative consiste nel fatto che nei relative ogni 
record di dati può' essere ritrovato tramite un numero 
di record. Il sistema operativo su disco o DOS del 1541 
esegue la maggior parte delle operazioni richieste per 
la manipolazione di un file relative anche se i relative 
non sono previsti nel basic del COMMODORE 64 . Vediamo 
ora come viene organizzato un file relative tenendo 
presente che gli esami che noi esseguiremo saranno fatti 
in gran parte con il DISKMON. Per prima cosa apriamo un 
file relative con la lunghezza record di 100: 

OPEN 2,8,2, "REL-FILE,L,"+CHR$(100) 

Scriviamo ora dei dati nel numero di record 70: 

OPEN 1,8,15 

PRINTtfl,"P"+CHR$(2)+CHR$(70)+CHR$(0)+(CHR$(1) 
PRINT#2,"DATI PER IL RECORD N.70" 

CLOSE 2 : CLOSE 1 

Esaminando la directory con il DISKMON avremo quanto 
segue: 


>:00 .. .. 84 11 00 52 45 4C ...REL 

>:08 2D 46 49 4C 45 AO AO AO -FILE 

>:10 AO AO AO AO AO 11 OA 64 ..$• 

>:18 00 00 00 00 00 00 ID 00 ........ 
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Il primo byte $84 specifica che siamo in presenza di un 
file relative. I successivi due bytes indicano la prima 
traccia e settore dei data scritti ($11,$00 che 
equivalgono alla traccia 17 settore 0) esattamente come 
su un file sequenziale. Come abbiamo visto in precedenza 
segue il nome del file (16 caratteri, seguiti per totale 
riempimento dagli spazi shiftati, $A0. Di seguito ci 
sono due campi non utilizzati con i files sequenziali. 
Il primo campo e' un puntatore di due bytes, alla 
traccia e al settore del primo bloccho SIDE-SECTOR. Un 
side-sector contiene i puntatori a ogni record di data. 
Lo descriveremo in dettaglio successivamente ($11,$0A; 
traccia 17, settore 10). Il secondo campo e' di un byte 
che contiene la lunghezza del record, valore tra 1 e 
254, nel nostro caso $64 (100). Il vantaggio di essere 
in grado di poter accedere ad ogni record 
individualmente richiede una definita lunghezza per ogni 
record che deve essere dichiarata quando si crea un file 
relative. I restanti campi nella directory hanno i 
normali significati. Gli ultimi due bytes contengono il 
numero di blocchi nel file ( byte alto e basso cioè' $1D 
e $00 ). 

Vediamo ora quali sono le funzioni del side-sector e che 
cosa contiene. 

I blocchi di side-sector contengono i puntatori alla 
traccia e settore di ogni singolo records di dati. Per 
esempio se desideriamo leggere il settantesimo record di 
un file relative il DOS consulta il blocco di side 
sector per sapere quale traccia e settore contengano il 
record e quindi legge il record direttamente. Il 
risultato di questo e' che possiamo leggere il 
settantesimo record di un file senza aver letto prima 
l'intero file. Vediamo ora l'esatta costruzione di un 
blocco di side-sector. 
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UTILIZZO DEI SIDE SECTOR 


Quanto segue 

e' 

stato 

come 

al 

solito ottenuto tramite 

monitor del 

disco. 







>;00 

00 

47 

00 

64 

11 

OA 

00 

00 .G.$.... 

>:08 

00 

00 

00 

00 

00 

00 

00 

00 . 

>:10 

11 

00 

11 

OB 

11 

01 

11 

oc . 

>:18 

11 

02 

11 

OD 

11 

03 

11 

OE . 

>:20 

11 

04 

11 

OF 

11 

05 

11 

10 . 

>:28 

11 

06 

11 

11 

11 

07 

11 

12 . 

>:30 

11 

08 

11 

13 

11 

09 

11 

14 . 

>:38 

10 

08 

10 

12 

10 

06 

10 

10 . 

>;40 

10 

04 

10 

OE 

10 

02 

10 

OC. 

>:48 

00 

00 

00 

00 

00 

00 

00’ 

00 . 

>;50 

00 

00 

00 

00 

00 

00 

00 

00 . 


11 


etc. 


Come di norma i primi due bytes puntano alla traccia e 
settore del successivo blocco di side-sector. 

Nel nostro caso non esistono ulteriori blocchi di 
side-sector ($00) e solo $47 = 71 bytes di questo 
settore sono utilizzati. Il byte 2 contiene il numero 
del blocco di side-sector, 00. Un file relative può' 
contenere fino a un massimo di sei di questi blocchi, la 
numerazione va da 0 a 5. 

La lunghezza del record, $64 (100) si rileva nel byte 3. 
I prossimi 12 bytes (dal byte 4 fino al byte 15) 
contengono i puntatori alla traccia e settore (2 bytes 
ognuno) riferentesi ai 6 blocchi di side-sector (00,00 
sta a significare che il blocco non e' ancora 
utilizzato). 

Partendo dal byte 16 ($10) ci sono i puntatori ai data e 
i puntatori traccia e settore ai primi 120 blocchi di 
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dati (nel nostro caso solo 28 puntatori). 

Utilizzando il numero di record e la lunghezza del 
record il DOS può' calcolare in quale blocco sono 
presenti i data e a quale posizione entro il blocco 
inizia il record. Per comprendere meglio facciamo questo 
esempio: 

Per leggere il settantesimo record dal file con una 
lunghezza di record di 100 caratteri possiamo eseguire 
il seguente calcolo: 

(70-1) * 100 / 254 

Avremo un quoziente di 27 con resto di 42. 

Il DOS ora sa che il record può' essere trovato nel 
ventisettesimo blocco dati alla 42+2 o 44esima 
posizione. 

Vediamo ora una spiegazione del calcolo. 

Ogni blocco contiene 256 bytes, i primi due del quale 
sono utilizzati come puntatori per il blocco successivo. 
Sono quindi lasciati liberi per l'immagazzinamento di 
dati 254 bytes. Si può' calcolare il numero del byte 
dall'inizio del file ( che e' il record 1 ) partendo dal 
numero del record e dalla sua lunghezza. Se noi 
dividiamo questo valore per il numero di bytes per 
blocco avremo il numero del blocco che contiene il 
record. Il resto della divisione ci da la posizione 
all'interno del blocco .(aggiungere 2 perche' i primi 2 
bytes servono come abbiamo visto per puntare al blocco 
successivo). 

Se il record supera la fine del blocco deve essere letto 
anche il blocco successivo. Nel nostro esempio il 
27esimo blocco di dati si trova nella traccia $10 (16) e 
nel settore $0C (12). Se noi leggiamo questo blocco con 
il monitor avremo i seguenti dati: 
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> 

:00 

00 

F3 

00 

00 

00 

00 

00 

00 

> 

:08 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:10 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:18 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:20 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:28 

00 

00 

00 

00 

44 

41 

54 

41 

> 

;30 

20 

46 

4E 

52 

20 

52 

45 

43 

> 

:38 

46 

52 

44 

20 

37 

30 

OD 

00 

> 

:40 

00 

00 

00 

00 

00 

00 

00 

00 

>/48 

00 

00 

00 

00 

00 

00 

00 

00 

> 

;50 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:58 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:60 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:68 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:70 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:78 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:80 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:88 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:90 

FF 

00 

00 

00 

00 

00 

00 

00 

> 

:98 

00 

00 

00 

00 

00 

00 

00 

00 

> 

;A0 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:A8 

00 

00 

00 

00 

00 

00 

00 

00 

> 

;B0 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:fì8 

00 

00 

00 

00 

00 

00 

00 

00 

> 

;C0 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:C8 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:D0 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:D8 

00 

00 

00 

00 

00 

00 

00 

00 

> 

;E0 

00 

00 

00 

00 

00 

00 

00 

00 

> 

sE8 

00 

00 

00 

00 

00 

00 

00 

00 

> 

:F0 

00 

00 

00 

00 

FF 

00 

00 

00 

> 

:F8 

00 

00 

00 

00 

00 

00 

00 

00 


....DATA 

FOR REC 
ORD 70.. 
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Se dal calcolo otteniamo un numero di blocco maggiore di 
120 il puntatore non può' essere trovato nel primo 
blocco di side-sector, ma nei successivi blocchi di 
side-sector. 

In questo caso si divide il numero blocco per 120 e il 
quoziente sara' il numero del blocco di side-sector. Il 
resto della divisione ci dara' l'indirizzo del puntatore 
entro questo blocco. 

Dovendo per esempio trovare il record b. 425 eseguiremo 
la divisione per 120 come ho detto e avremo un quoziente 
di 3 e un resto di 65. Perciò' dovrete leggere il blocco 
side-sector 3 e inviare il puntatore al 65esimo blocco 
data. 

Vediamo cosa succede quando si crea o si espande un file 
relative. 

Per prima cosa viene creato un DIRECTORY ENTRY per il 
file reletive che contiene la lunghezza del record. 

Sono poi riservati due canali per i file relative, uno 
per 1 data, l'altro per i side-sectors. 

Se un puntatore di record e' fissato a un dato record, 
il DOS per prima cosa controlla per vedere se il record 
esiste già'. Se cosi' e' viene letto il corrispondente 
blocco e il BUFFER POINTER fissato in maniera tale che 
si possa accedere al contenuto del blocco. Se non e' 
cosi' il record viene creato. 

Tutti i record precedenti questo numero di record che 
non e' ancora presente sono anch'essi creati. Il primo 
byte di un nuovo record scritto contiene $ff (255), e il 
resto del record viene riempito con $00. 

Se il corrispondente record e' all'inizio di un blocco 
il resto del blocco viene riempito con record vuoti. 
Ogni volta che si tenta di accedere a un record 
inesistente viene vi§ualizzato il messaggio di errore: 

50,RECORD NOT PRESENT. 
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Quando si scrive un nuovo record questo non e' da 
considerarsi un errore, ma indica che un nuovo record e' 
stato creato. 

Potete utilizzare questo metodo per creare nuovi files 
se conoscete il numero massimo di records. Sara' 
sufficiente fissare il puntatore a questo record e 
scrivere $FF (CHR$(255)) in questo record. Allocando un 
file come questo il messaggio di errore non apparirà' 
piu'. Dovete anche essere a conoscienza se c'e' 
abbastanza spazio sul dischetto. Se non c'e' verrà' 
visualizzato un messaggio di errore: 

52, FILE TOO LARGE 

Come massimo di side-sectors un file relative può' 
contenere 6 * 120 * 254 = 182880 bytes. 

Nel caso del 1541 questo e' piu' della capacita' 
dell'intero dischetto. Per quanto riguarda invece gli 
altri tipi di DOS e' bene controllare il libro "LE 
PERIFERICHE COMMODORE". 

Poiché' un file relative richiede tre canali di dati e 
il 1541 ha solo cinque canali disponibili, solamente un 
file relative per volta può' essere aperto. Gli altri 
due canali disponibili potranno essere utilizzati per 
tener aperto un file sequenziale allo stesso tempo. 
Naturalmente con i dischi COMMODORE piu' grandi tipo 
8050 e 8250 si possono tenere aperti un numero maggiore 
di files relatives contemporaneamente. 
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CAPITOLO SESTO 


ACCESSO DIRETTO AD UN QUALSIASI BLOCCO DEL DISCHETTO. 


Quando si manipolano files e programmi' su un dischetto, 
non dobbiamo eseguire nessuna operazione riguardo all' 
organizzazione dei dati sul dischetto stesso, in quanto 
esiste il SISTEMA OPERATIVO SU DISCO (DOS), che si 
prende cura di ogni e qualsiasi dettaglio relativo a 
questa organizzazione. 

Tuttavia il DISK OPERATING SYSTEM offre la possibilità' 
di accedere ad ogni blocco, o piu' precisamente ad ogni 
informazione sul dischetto. 

Ciò' rende molto flessibile la manipolazione dei singoli 
files per creare strutture di dati completamente nuove 
rispetto a quele tradizionalmente utilizzate. 

Per accedere direttamente ad un blocco deve essere 
aperto un canale sul BUFFER dati del drive, e sara' 
quindi su questo canale che i dati verranno trasmessi. 
Il BUFFER di dati serve come immaigazzinamento intermedio 
o temporaneo per dati che devono essere letti o scritti 
sul dischetto. 

Ovviamente e' necessario informare il SISTEMA OPERATIVO 
DISCO che si sta lavorando con comandi ad accesso 
diretto e per questo utilizzeremo uno speciale nome di 
file nel comando di apertura (OPEN): 


0PEN1,8,2,"#" 

Utilizzando questo comando, il file logico numero 1 
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sulla periferica 8 (il drive) viene associato con un 
file ad accesso diretto. 

Il canale numero 2 serve per la trasmissione dati al e 
da disco. 

Il numero di canale, cioè' 1' indirizzo secondario nel 
comando OPEN, deve essere compreso nell' intervallo fra 
i valori 2 e 14. 

I canali 0 e 1 sono infatti riservati per i comandi LOAD 
e SAVE, mentre il canale 15 e' il canale di comando. 

La scelta di un Indirizzo secondario e' arbitraria. 

Non si deve mai utilizzare lo stesso indirizzo 

secondario simultaneamente, cioè' con 2 comandi, perche' 
il SISTEMA OPERATIVO DISCO non appena dovesse incontrare 
un secóndo comando OPEN con lo stesso indirizzo 

secondario chiuderà' il file al quale ci stiamo 

riferendo, utilizzando questo numero di canale. 

Ciò' accade anche quando si sta lavorando con files 
RELATIVES o ad accesso sequenziale. 

Questa forma del comando OPEN consente che il SISTEMA 
OPERATIVO DISCO ricerchi un BUFFER libero di dati e gli 
assegni quel determinato canale. 

Utilizzando un comando GET# immediatamente dopo 1' OPEN 
si può' trovare il numero di BUFFER che il sistema 

operativo ha assegnato a questa operazione: 


100 OPEN 1,8,2,"#" 

110 GET#1,A$ 

120 PRINT ASC(A$+CHR$(0)) 


RUN 

verrà' visualizzato il numero 3 
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In questo caso cioè* e* stato assegnato il BUFFER numero 
3. 


I BUFFER sull* unita* a dischi 1541 sono 5 e vengono 
convenzionalmente numerati da 0 a 4. 

Ogni Buffer può* manipolare fino a 256 bytes di dati. 

Di seguito riportiamo gli indirizzi di memoria dei 5 
BUFFER ricordando di non confonderli con gli indirizzi 
relativi all* unita* centrale^ 


BUFFER 

INDIRIZZI 

ESA/DEC 

0 

$300-3FF 

768-1023 

1 

$400-4FF 

1024-1279 

2 

$500-5FF 

1280-1535 

3 

$600-6FF 

1536-1791 ' 

4 

$700-7FF 

1792-2047 


Il BUFFER numero 4 normalmente non e * disponibile 
perche* vi e* immagazzinata la BAM o BLOCK AVAILIBILITY 
MAP del disco. 

Se si lavora con files sequenziali e relatives allo 
stesso tempo anche il BUFFER numero 3 non e* disponibile 
perche* utilizzato per la DIRECTORY. 

Se si ritiene necessario associare ad un comando disco 
uno specifico BUFFER per 1* accesso diretto, • questa 
operazione dovrà* essere fatta utilizzando un comando 
OPEN come nell* esemplo seguejnte: 


- 74 - 




I SEGRETI DEL 1541 


0PEN1,8,2,"#3" 


Questo comando OPEN assocera' il BUFFER numero 3 
($600-$éFF) con il canale di comunicazione numero 2, 
partendo naturalmente dall' ipotesi che questo sia 
libero. 


NOTA 

A meno che non abbiate una ragione molto importante 
per utilizzare uno specifico Buffer, dovreste lasciare 
questa, scelta, cioè' quella relativa al buffer da 
utilizzare,al SISTEMA OPERATIVO DISCO stesso poiché' 
questa scelta sara' comunque fatta per un BUFFER 
realmente disponibile. 


Dopo aver aperto un canale dovete ricordarvi di 
controllare il canale di errore, ad esempio con questi 
comandi: 


130 OPEN 15,8,15 

140 GET#15,A$ : PRINTA$;: IF ST<>64 THEN 140 


Se il BUFFER e' in quel momento utilizzato riceverete il 
messaggio di errore: 


70, NO CHANNEL,00,00 


Se non ci sono altri files aperti potrete aprire ^fino a 
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quattro canali per 1' accesso diretto. 

Il seguente esempio illustra quanto detto; 


10 OPEN 1,8,15,"IO": 1=2 

20 OPEN 2,8,2, "//": GOSUB 100 

30 OPEN 3,8,3, GOSUB 100 

40 OPEN 4,8,4, GOSUB 100 

50 OPEN 5,8,5, GOSUB 100 

60 OPEN 6,8,6, GOSUB 100 

70 END 

100GET#I,A$:PRINT ASC(A$+CHR$(0) ) 
1101 = 1+1 

120GET//1,A$:PRINTA$;;IF ST^>64 THEN 120 
130RETURN 


Quando il precedente programma gira, cioè' dopo aver 
dato il RUN, avremo la seguente visualizzazione; 

3 

00,OK,00,00 

2 

00,OK,00,00 
1 

00,OK,00,00 
0 

00,OK,00,00 
199 

70,NO CHANNEL,00,00 


Come si può' osservare il tentativo di aprire un quinto 
canale per 1' accesso d:^retto, non dara' nessun 
risultato. 
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La trasmissione di dati a e da un BUFFER normalmente 
viene eseguita utilizzando dei comandi GET/f, INPUT# e 
PRINT#. 

Se un BUFFER contiene solamente testi,cioè' solamente 
dati alfanumerici, che non abbia una lunghezza maggiore 
di 88 caratteri e sia separato, abbia cioè' come 
carattere di separazione,un ritorno carrello (CHR$(13)), 
può' essere letto utilizzandoun comando INPUT#. 

Tuttavia se il BUFFER contiene caratteri di controllo o 
nel testo stesso sono stati utilizzati dei caratteri 
virgola o punto e virgola (, o ;), allora il comando 
INPUT# non va bene. 

In questo caso dovremo utilizzare un comando GET# che 
eseguirà' 1' operazione su un solo carattere per volta. 


NOTA 

Ricordiamo pero' che il GET# non consente di leggere 
valori nulli cioè' CHR$(0). In questo caso il GET# 
riceve una stringa vuota e dovrete quindi controllare 1' 
eventualità' di questa condizione con la seguente 
metodologia: 


100 GET#2, A$ : IF A$="" THEN A$ = CHR$ (0) 


Una semplice alternativa al comando GET# e' quella di 
utilizzare un comando INPUT* come vedremo in seguito. 

Con questo sistema potrete dichiarare quanti caratteri 
devono essere letti nellastringa. 

Questo comando può' anche manipolare valori nulli come 
CHR$(0), e si può' leggere anche 1' intero BUFFER di 256 
caratteri con un solo comando. 
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Nel seguente capitolo, tutti i comandi ad accesso 
diretto verranno dettagliatamente descritti. 

Quando si utilizzano comandi ad accesso diretto, si 
deve esplicitamente consentire che i blocchi sul 
dischetto possano essere letti o scritti. 

I comandi ad accesso diretto sono inviati sul canale di 
comando numero 15. 

I dati che vengono scritti o letti su un BUFFER sono 
trasmessi su un canale separato che e' associato con 
quel Buffer. 

Sia il canale numero 15 che il canale associato con il 
BUFFER devono essere aperti prima che inizi la 
trasmissione di dati in un verso o nell' altro. 


Riepilogando: 


1) Un comando PRINT# al canale di comando numero 15 invia 
un ordine di accesso diretto al SISTEMA OPERATIVO DISCO. 

2) Un comando PRINT# ai canali da 2 a 14 invia dati ad 
un BUFFER. 

3) Un comando INPUT# o GET# al canale di comando 15 
riportano un qualsiasi messaggio di errore controllato 
dal DOS. 

4) Un comando GET# o INPUT# ai canali da 2 a 14 leggono 1 
dati dal BUFFER. 
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COMANDI DI ACCESSO DIRETTO. 


BLOCK-READ B-R 


Un comando di BLOCK-READ comunica al 1541 di leggere un 
blocco dal dischetto entro un dato BUFFER, di un file ad 
accesso diretto, preventivamente aperto. 

Quest' ordine viene inviato sul canale di comando 
{indirizzo secondario 15) all' unita' a dischi. 

Il comando può' essere abbreviato con B-R. 

Poiché' questo comando per sua natura non legge il 
primo byte del blocco e' necessario sostituirlo con U1 
per leggere per intero il blocco. 

Il comando ha la seguente sintassi: 


Ul;numero del canale;drive;traccia;settore 


E' necessario fornire il numero di canale che si sta 
utilizzando quando viene eseguito un OPEN per accesso 
diretto sul file: 


10 OPEN 1,8,15,"IO" 

20 OPEN 2,8,2,"#" 

30 PRINT#1,"U1;2;0;18;0" 


Con qgesto esempio si legge il contenuto della traccia 
18 del settore 0 entro il BUFFER associato con il canale 

2 . 
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leggiamo ora i dati da questo BUFFER con un comando 
GET#2: 


40 GET#2,A$,B$ 

50 PRINT ASC(A$), ASC(B$) 

18 1 


Abbiamo quindi letto e visualizzato i primi 2 Bytes del 
BUFFER. 

Il settore 0 della traccia 18 contiene un puntatore al 
primo blocco della DIRECTORY ed alla BAM del dischetto. 
Nel programma dimostrativo DISPLAY T & S fornito sul 
dischetto TEST demo, questo comando viene utilizzato per 
leggere la BAM dal disco e per visualizzare graficamente 
ogni record presente sul dischetto stesso. 

Si possono leggere tutti e 256 bytes del blocco dal 
BUFFER con il comando GET#. 

Nel nostro esempio leggeremo il nome del dischetto e 1' 
identificatore dalla posizione 144. 

I blocchi che compongono un file sono strettamente 
collegati 1' uno all' altro. 

I primi due bytes di ogni blocco contengono un puntatore 
al settore ed alla traccia del blocco successivo. 
Utilizzando questa informazine si può' agevolmente 
osservare 1' utilizzo dello spazio su un dischetto per 
un file. 

Un puntatore di traccia che contenga il valore 0 (zero) 
indica che siamo in presenza dell' ultimo blocco di un 
file. Mentre il puntatore che normalmente contiene il 
numero di settore, in questo caso conterrai' il numero di 
Bytes dell' ultimo blocco che e' parte di questo file. 

II primo settore di un file può' essere letto con il 
programma che vedremo successivamente e che si chiama 
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visualizzazione di tutti i parametri di un file. 

Il seguente piccolo programma visualizza tutte le 
restanti tracce e settori che sono parte del file. 


100 OPEN 1,8,15,"IO" 

HO OPEN 2,8,2,"//" 

120 INPUT"TRACCIA E SETTORE";T,S 
130 PRINT //1,"U1";2;0;T,S 
140 GET//2, T$,S$ 

150 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0)) 
160 IF T=0 THEN CLOSE 2:CL0SE1:END 
170 PRINT "TRACCIA";!,"SETTORE";S 
180 G0T0130 


NOTA 

Immettere i valori 18 e 0 rispettivamente come traccia e 
settore per visualizzare la BAH e la DIRECTORY di .quel 
dato dischetto. 


BUFFER-POINTER B-P 


Il nome del dischetto inizia all' indirizzo 144 della 
traccia 18 del settore 0. 

Utilizzando il precedente esempio possiamo leggere i 
primi 143 del BUFFER ed essere quindi posizionati all' 
inizio del nome del dischetto. 

Ma il SISTEMA OPERATIVO DISCO ha una via piu' semplice 
per eseguire questa operazione. 

Per accedere ad un qualsiasi necessario byte di un 
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buffer si può' usare il comando di BUFFER-POINTER. 

Usando questo comando il DOS ha la possibilità' di 
posizionarsi in un punto preciso all' interno del 
BUFFER. 

Il comando BUFFER-POINTER può' essere abbreviato con 
B-P. 

La sua sintassi e' la seguente: 


B-P;numero del canale; posizione 


Possiamo ora leggere il nome del dischetto in maniera 
diretta: 


100 OPEN 1,8,15,"IO" 110 OPEN 

2 , 8 , 2 ,"#" 

120 PRINT#1,"U1";2;0;18;0 
130 PRINT#1,"B-P";2;144 

140 F0RI=1 TO 16 

141 REM LUNGHEZZA MASSIMA 

150 GET#2,A$:IFA$=CHR$(160) THEN 170 
160 PRINTA$;:NEXT 
170 CLOSE 2:CL0SE 1 


Con questo esempio, per prima cosa leggiamo il blocco, 
fissiamo quindi il puntatore del BUFFER alla posizione 
144 e quindi leggiamo e visualizziamo il nome del 
dischetto che potrà' avere una lunghezza massima di 16 
caratteri» 

Uno spazio SHIFTATO (CHR$(160)), indica la fine del nome 
del dischetto. 

I Bytes nel buffer sono numerati da 0 a 255 e il primo 
Byte contieeie un numero 0. 
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Il puntatore del BUFFER (BUFFER-POINTER) e' 

automaticamente messo a 0 (zero) durante la lettura di 
un blocco con il comando Ul. 

Si può'per esempio leggere il Byte numero 2 dopo aver 
letto il nome del dischetto. 

Per fare questa operazione sara' necessario fissare il 
puntatore del buffer a questo valore. 

Esempio: 


PRINTj'/l,"B-P";2;2 


BLOCK-WRITE B-W 


Il comando BLOCK-WRITE consente di scrivere il contenuto 
di un BUFFER su un dato blocco del dischetto. 

Con ciò' si può' scrivere il blocco inviato al BUFFER 
entro 1' unita' a dischi. 

E' possibile leggere un blocco entro un BUFFER con un 
comando BLOCK-READ, cambiare il contenuto di alcuni 
Bytes, e quindi riscrivere il blocco. 

Questo comando può' essere abbreviato con le lettere 
B-W. 

Poiché' questo comando scrive i contenuti del puntatore 
del BUFFER si può' utilizzare il comando U2 che metterà' 
sempre a 1 il puntatore del BUFFER. 

La sintassi del comando e' analoga a quella del 
BLOCK-READ: 


U2 numero del canale;drive;traccia;settore 
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100 OPEN 1,8,15,"IO" 

110 OPEN 2,8,2,"#" 

120 PRINT#2," TEST DATA" 
130 PRINT#1,"U2";2;0;1;0 
140 CLOSE 2 :CLOSE 1 


Nell' esempio riportato la frase "TEST DATA" sara' 
scritta sul Buffer associato al canale numero 2 quindi 
scritta sulla traccia 1 settore 0 del dischetto. 

Il comando U2 fa si che non vengano eseguiti cambiamenti 
sui contenuti del BUFFER. 

Vediamo ora un' esempio di utilizzo del comando 
BLOCK-WRITE per cambiare il nome del dischetto che 
avevamo letto con il precedente programma. 

Per far questo sara' necessario riempire con un nuovo 
nome di 16 caratteri e con al termine CHR$(160) il 
Buffer cosi' che si possa scriverlo su disco. 

Useremo ancora il comando BUFFER-POINTER per fissare il 
puntatore del buffer direttamemte alla richiesta 
posizione entro il BUFFER. 


100 OPEN 1,8,15,"IO" 

110 OPEN 2,8,2,"#" 

120 PRINT#1,"U1";2;0;18;0 
130 PRINT#1,"B-P";2;144 
140 A$="NU0V0 NOME FILE" 

150 IF LEN(A$)"16THEN A$=A$+CHR$(160);G0T0150 
160 PRINT#2,A$; 

170 PRINT#1,"U2";2;0;18;0 
180 PRINT#1,"IO":CLOSE 2:CLOSE 1 
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Per prima cosa leggiamo la traccia 18 settore 0 entro il 
BUFFER. Fissiamo quindi i puntatori del BUFFER alla 
posizione del nome del dischetto e scriviamo un nuovo 
nome di 16 caratteri nel BUFFER. 

Notare che il nome del dischetto e' stato cambiato solo 
sul BUFFER. 

Tuttavia nella linea 170 del programma i contenuti del 
BUFFER sono scritti nello stesso blocco che cambia in 
misura permanente il nome del file sul dischetto. 
Successivamente il dischetto e' inizializzato cosi' che 
la BAM ed il nome nella memoria del SISTEMA OPERATIVO 
DISCO sia aggiornato. 

Esaminare ora la directory del dischetto con: 


L0AD"$",8 

LIST 

per vedere se effettivamente e' stata apportata, la 
variazione richiesta. 


BLOCK-ALLOCATE B-A 


Questo comando ha il compito di indicare se nella BAM 
esiste un particolare blocco che sta per essere usato. 

Il comando BLOCK-ALLOCATE può' essere abbreviato con 
B-A. 

Per i programmi, per i files sequenziali o relatives non 
appena i blocchi del dischetto sono utilizzati,la BAM 
viene aggiornata in modo tale da far sapere al SISTEMA 
OPERATIVO DISCO che quei blocchi non sono piu' 
disponibili. 
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Tuttavia 1 blocchi scritti utilizzando comandi ad 
accesso diretto non sono automaticamente allocati. 

Quando blocchi utilizzati in questa maniera non sono 
correttamente e definitivamente allocati esiste la 
possibilità' che essi vengano sovrascritti qualora si 
usino altri files. 

Il comando BLOCK-ALLOCATE deve essere utilizzato per 
prevenire questo tipo di sovrascrittura. 

Questo comando ha la seguente sintassi; 


B-A;drive ; traccia ; settore 


Con ciò' il corrispondente blocco nella BAM viene 
segnato come blocco allocato ed e' protetto contro la 
sovrascrittura di altri files. 

Se si tenta di scrivere nuovamente su di un blocco 
correttamente allocato, il canale di errore restituirà' 
un messaggio di tipo: 


65, NO BLOCK 


100 OPEN 1,8,15,"IO" 

110 INPUT"TRACCIA, SETTORE";!,S 
120 PRINT#1,"B-A";0;T;S 
130 INPUT#1,A$,B$,C$,D$ 

140 PRINTA$","B$","C$","D$ 


Utilizzando questo programma si può' immettere un numero 
di traccia e settore di un blocco che si desidera 
allocare. 

Se il blocco e' tuttora libero questo sara' allocato ed 
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11 messaggio; 


00,OK,00,00 


viene visualizzato. 

Mentre se il blocco e' già' allocato verrà' visualizzato 
il messaggio: 


65,NO BLOCK,TRACCIA,SETTORE 


In questo caso 1 parametri TRACCIA e SETTORE contengono 
il successivo numero di blocco libero sul dischetto. 

Ciò' sta a significare che il richiesto blocco e' 
allocato, ma il blocco il cui indirizzo e' dato appunto 
dal parametri TRACCIA,SETTORE e' ancora disponibile. 

Se il messaggio di errore visto in precedenza riporta 
ZERO come valori di traccia e settore, ciò' stara’ a 
significare che nessun blocco con un piu' alto numero di 
traccia e settore e' disponibile. 

Il seguente programma provvede all' allocazione 
automatica dei successivi settori liberi. 


100 OPEN 1,8,15,"IO" 

110 INPUT"TRACCIA, SETTORE";T,S 
120 PRINT#1,"B-A";0;T;S 
130 INPUT//1,A$,B$,TT,SS 
140 IFA$="00"THEN 190 

150 IFA$<>"65".THENPRINTA$", "B$", "TT", "SS:G0T0300 
160 IFTT=0THENPRINT"NESSUN ALTRO B.LIBERO":G0T0300 
170 IF TT=18 THEN TT=19:SS=0 
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180 T=TT:S=SS:G0T0 120 

190 PRINT"TRACCIA"TT"SETTORE"SS"ALLOCATI" 

300 PRINT#15,"I0'':END 


Il controllo per la traccia 18 nella linea di programma 
180 previene che un blocco nella DIRECTORY possa essere 
allocato. 

L' impiego del comando B-A può' riportare un' altro tipo 
di errore che e' interessante esaminare. 

Se viene eseguito un tentativo di allocare un blocco che 
non può' esistere, ad esemplo traccia 20 settore 21, 
verrà' visualizzato un messaggio di errore: 


66, ILLEGAL TRACK OR SECT0R,20,21 


Come abbiamo detto, il fatto di segnare un blocco come 
allocato nella BAM, previene il fenomeno che venga 
sovrascritto da altri flles. 

Il blocco Sara' riconosciuto come allocato fino a che 
non sia inviato un comando di VALIDATE oppure, (solo 
pero' per il BASIC 4.0) un comando di COLLECT. 

Il comando VALIDATE ricostruisce una nuova BAM eseguendo 
un' operazione di concatenamento dei blocchi nel singolo 
file e marcando ogni blocco in maniera tale che lanuova 
BAM venga ricostruita partendo da zero. 


NOTA 

Con il VALIDATE i files non correttamente chiusi e che 
all' esame della directory appaiono segnati con un 
asterisco (*) saranno cancellati. 
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BLOCK-FREE B-F 


Questo comando, che può' essere abbreviato con B-F, 
esegue la funzione opposta a quella appena vista nel 
comando precedente. 

In sostanza segnala un blocco come NON ALLLOCATO nella 
BAH. 

La sintassi e' molto simile a quella appena vista: 

B-F drive traccia settore 


esempio: 

100 OPEN 1,8,15 

110 PRINT#1,"B-F'';0;20;9 


In questo caso il blocco nella traccia 20 settore 9 
viene reso disponibile nella BAH. Se il blocco e' già' 
disponibile non viene riportato nessun errore. 

I comandi BLOCK-WRITE e BLOCK-READ non controllano la 
BAH prima di sovrascrivere dei blocchi . 

Con questi comandi potete scrivere su blocchi segnati 
come se in effetti fossero correttamente allocati nella 
BAH. 

Se per esempio avete un disco che contiene solo files ad 
accesso diretto all' inizio non e' necessario allocare 
blocchi scritti perche' nessun altro file sara' scritto 
su dischetto. In questo caso si può' usare la DIRECTORY 
dei blocchi nela traccia 18 ed avere 672 blocchi 
disponibili sul 1541. 
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BLOCK-EXECUTE B-E 


Il comando BLOCK-EXECUTE consente che un blocco possa 
essere letto da un dischetto, Inserito in un buffer e 
quindi i contenuti del buffer siano eseguiti come 
programma in linguaggio macchina. 

Si possono scrivere routines per il SISTEMA OPERATIVO 
DISCO, memorizzarle con un comando B-W o U2 ad un 
settore e successivamente caricarle entro un BUFFER e 
mandarle in esecuzione con un comando BLOCK-EXECUTE con 
cui verranno eseguite come programmi in linguaggio 
macchina. 

Naturalmente ciò' presuppone la conoscenza del lavoro 
che il DOS eseguirà' all' interno. 

Se desiderate usare un comando B-E, normalmente dovrete 
dare il numero del BUFFER da utilizzare nel comando OPEN 
nel caso che il programma in linguaggio macchina non sia 
rilocabile e sia scritto per un dato BUFFER. 

Il comando BLOCK-EXECUTE ha la seguente sintassi: 

B-E;n.canale ;drive ; traccia;settore 

esempio: 


100 OPEN 1,8,15,"IO" 

110 OPEN 2,8,2,"#3" 

120 PRINT#1,"B-E";2;0;17;12 


In questo esempio il BUFFER 3 (da $600 a $6FF) e' 
assegnato al canale 2. 

I contenuti della traccia 17 settore 12 sono caricati 
all' interno di questo BUFFER e qui vieneeseguito il 
programma in linguaggio macchina. 
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Il comando BLOCK-EXECUTE e' una combinazione di comandi 
BLOCK-READ e MEMORY-EXECUTE. 

Nella parte successiva del manuale sono forniti esempi 
di programmi in linguaggio macchina che possono essere 
eseguiti dal DOS tramite dei comandi cosidetti di 
memoria. 


UTILIZZO DEGLI ACCESSI DIRETTI 


Vediamo un attimo che cosa consentono di fare i comandi 
ad accesso diretto. 

Eseguendo delle manipolazioni sui singoli settori si 
possono effettuare dei caiì.biamenti nella zona riservata 
alla BAM (traccia 18 settore 0) allo stessomodo incui 
sipuo' cambiare ilnome del dischettoo l'identificatore. 
Si possono effettuare cambiamenti nella DIRECTORY che 
come ricordiamo inizia dalla traccia 18 settore 1. 
Ricordiamo che ogni ogni ingresso di file nella 
DIRECTORY ha uno spazio di file non utilizzato. Si può' 
utilizzare quindi questo spazio per immagazzinare 
informazioni addizionali. 

Si possono cambiare i nomi dei files nella directory 
utilizzando comandi ad accesso diretto. 

Si può' ad esempio seguire il cambiamento dei blocchi in 
un file per vedere se il file stesso e' intatto. 

Si può' chiudere un file restato aperto mettendo a 0 il 
bit 7 dell? indicatore di TIPI FILE nella directory. 

Per esempio sipuo' cambiare 1' indicatore del tipo del 
file da $02 a $82. 

Normalmente questi files sono indicati nella DIRECTORY 
con un' asterisco. 

Dopo il cambiamento 1' asterisco sparirà'. 
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Ogni file entry contiene anche una serratura che 
disabilita la possibilità' di cancellarlo. 

Se viene settato il bit 6 relativo al tipo del file 
allora viene inviata 1' informazione che quel file non 
e' disponibile per la cancellazione, cioè' non può' 
essere cancellato. 

Con questo memodo si possono proteggere programmi e 
dati da cancellazioni accidentali. 

Altro esempio dell' utilizzo deli' accesso diretto può' 
essere può' essere con la cancellazione di programmi e 
files da dischetto. Se non e' stato scritto nient' altro 
su quella zona del dischetto, o meglio ancora non e' 
stato scritto niente del tutto sul dischetto, potrà' 
essere possibile recuperare un file accidentalmente 
cancellato . 

do' perche' la cancellazione di un file viene fatta 
semplicemente mettendo a 0 il tipo . del file nella 
DIRECTORY e rendendo quindi liberi i blocchi allocati. 
Sara' quindi necessàrio cercare solo nella lista della 
Directory il nome del file che si vuole recuperare e 
ripristinare il tipo di file: 


$81 per 1 files sequenziali 
$82 per i files programma 
$83 pèr i files USR 
$84 per i relatives 

Dopo aver ripristinato iltipo di file dovrete usare il 
comando VALIDATE per riallocare nuovamente i blocchi. 

Ad esempio: 

OPEN 1,8,15:PRINT#1,"V0" 

Altro uso di comandi ad accesso diretto può' essere 
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quello di implementare nuove strutture di dati che il 
DOS normalmente non riconósce. 

Ad esempio può' essere creata una struttura di dati di 
tipo ISAM, che e' un' abbreviazione di INDEX SEQUENTIAL 
ACCESS METHOD, cioè' metodo di accesso sequenziale 
indicizzato. 

Con un file di tipo ISAM si può' accedere direttamente 
ad ogni record allo stesso modo di come si opera con 
untile relative. 

Tuttavia questo accesso non e' per numero di record ma 
per chiave o per indice. 

Questo indice sara' un campo entroil record. Se per 
esempio un record e' composto da 5 campi: 


COGNOME 

NOME 

INDIRIZZO 

CITTA' 

CODICE DI AVVIAMENTO POSTALE 

Il cognome può' essere dèfinitocomechiave di accesso. 

Per leggere quindi il record ROSSI il comando sara' 
semplicemente: 

leggi il record ROSSI. 


In questi tipi di files 1' indice e' di norma salvato 
separatamente insieme alle informazioni relative al 
punto in cui i records possono essere trovati su disco. 
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COME ACCEDERE AL DOS. I COMANDI JtMORY 


Nel precedente capitolo abbiamo esaminato il problema di 
caricare un programma nella memoria DOS e di eseguirlo. 
Con i comandi cosi' detti di memoria (MEMORY) si può' 
accedere invece al singolo BYTE del SISTEMA OPERATIVO 
DISCO ed eseguire programmi in RAM o in ROM. 

Per esempio si può' accedere al WORK SPACE o spazio di 
lavoro del SISTEMA OPERATIVO DISCO e leggere il numero 
di blocchi liberi su disco o prelevare il nome del disco 
dal BUFFER della BAM. 

Avendo la possibilità' di scrivere sulla memoria RAM del 
SISTEMA OPERATIVO DISCO si possono cambiare delle 
costanti come il numero della periferica o il numero dei 
tentativi di lettura di un blocco. 

Si possono utilizzare per questo anche le routines 
presenti nella memoria del SISTEMA OPERATIVO DISCO. 

Per fare questo naturalmente e' necessaria una notevole 
conoscenza sia del SISTEMA OPERATIVO DISCO sia del 
linguaggio ASSEMBLER o del linguaggio macchina del 
6502/6510 e del loro sistema di operare. 


MEMORY-READ M-R 


Utilizzando questo comando si può' accedere ad ogni 
Byte del SISTEMA OPERATIVO DISCO. Questo comando può' 
essere abbreviato con M-R. 

II comando MEMORY-READ e' trasmesso sul canale di 
comando. Il Byte letto e' quindi riportato sul canale di 
comando dove può' essere ritrovato con un GET#. La 
sintassi di questo comando e': 
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M-R ,CHR$(LO), CHR$(HI) 

Dove LO sta ad indicare il Byte basso dell' indirizzo 
nella dell' unita' a disco che deve essere letta ed HI 
il Byte alto. 

Il seguente programma chiede un indirizzi e legge ciò' 
che e' presente in quella locazione. 


100 INPUT"INDIRIZZO ";A 
110 HI=INT(A/256) 

120 L0=A-256*HI 
130 0PEN1,8,15 

140 PRINT#1,"M-R";CHR$(LO);CHR$(HI ) 
150 GET#1,A$ 

160 PRINT ASC(A$+CHR$(0)) 


Per esempio se si vuol conoscere il numero di blocchi 
liberi su un dischetto non avremo la necessita' di 
leggere l'intera Directory, in quanto possono essere 
letti direttamente i Bytes appropriati dal SISTEMA 
OPERATIVO DISCO. 

Ciò' può' rendersi necessario se non sappiamo se il file 
che vogliamo memorizzare ha abbastanza spazio su disco. 


100 OPEN 1,8,15,"10" 

110 PRINT#1,"M-R";CHR$(250);CHR$(2) 

120 GET//1, A$: IFA$=""THENA$=CHR$(0 ) 

130 PRINT#1,"M-R"5CHR$(252);CHR$(2) 

140 GET#1,B$:IFB$=""THEN B$=CHR$(0) 

150 PRINT ASC(A$)+256*ASC{B$) "BLOCKS FREE" 
160 CLOSE 1 
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Con questa sintassi un comando MEMORY-READ dovrà' essere 
dato per ogni Byte che si vuole leggere. 

Tuttavia può' rendersi necessario di leggere e di 
verificare piu' di un Byte per volta con un cornando M-R. 
Sara' quindi opportuno dare il numero di Bytes che 
devono essere letti con un terzo parametro; 

M-R CHR$(L0) CHR$(HI) CHR$(NUM) 

Si può' utilizzare questo sistema per leggere il nome di 
un dischetto dal Buffer della BAM dove era in precedenza 
immagazzinato. 

Prima di effettuare questa operazione il dischetto deve 
essere inizializzato in maniera tale che 1 ' attuale 
numero del dischetto stesso sia immagazzinato nel Buffer 
di indirizzo $0700, dal quale sara' letto con un comando 
M-R. 


100 OPEN 1,8,15,"10" 

110 PRINTtfl,"M-R"CHR$(144)CHR$(7)CHR$( 16 ) 
120 INPUT#1,A$ 

130 PRINT A$ 


Questo e' un semplice sistema per leggere il nome del 
dischetto che ricordiamo e' costituito da 16 caratteri. 
Con questa piccola routine da aggiungere in qualsiasi 
parte di un programma si può' ad esempio controllare se 
il dischetto presente in quel momento nel drive e' 
quello giusto. 

Anche il Buffer del disco può' essere letto utilizzando 
questo metodo. 

E' chiaro che cosi' si può' anche leggere una parte del 
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DOS che e' su ROM copiandolo su un BUFFER, modificandola 
e quindi far girare la parte cambiata. 


MEMORY-WRITE M-W 


Il comando complementare del precedente e' il comando 
per scrivere dati all' interno della memoria RAM del 
drive. Naturalmente dove questo e' consentito cioè' 
nelle zone libere. 

La sintassi del comando e' la seguente: 


M-W CHR$(L0) CHR$(HI) CHR$(N) CHR$(DATA1) CHR$(DATA2) 


Il numero di Bytes del parametro CHR$(N) cioè' il 
numero di Bytes che possono essere trasmessi e' 
teoricamente pari a 255. 

Tuttavia a causa della limitazione del Buffer di INPUT ( 
di ingresso dati) che può' manipolare solo fino a 40 
caratteri il numero di Bytes viene limitato a 34. 

Un possibile uso di questo comando e' quello di cambiare 
il numero di device. 

Il device e' immagazzinato in due locazioni di memoria 
in pagina zero. 

Il numero della periferica piu' 32 ($20) e' 
immagazzinato nella locazione 177 ($77) chiamata anche 
LISTEN ADDRESS e che serve per ricevere dati dal 
computer. 

Gli indirizzi immediatamente seguenti contengono il 
numero della periferica piu' il valore 64 ($40) per la 
funzione TALK che serve per inviare dati al computer. 
Poiché' gli indirizzi sono salvati separatamente e' 
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possibile utilizzarne di differenti per 1' invio e la 
ricezione di dati. 

Nel seguente esempio l'indirizzo di ricezione e' fissato 
a 9,mentre 1' indirizzo d' invio e' fissato sul valore 
10 . 


100 0PEN1,8,15 
110 

PRINT//1, ’'M-W"CHR$( 119 )CHR$ (0 )CHR$( 2 ) CHR$(9+32 ) CHR$ (10+64 

) 

120 CLOSE 1 
140 0PEN1,9,15 
150 0PEN2,10,15 
160 PRINT//1,"I0" 

170 INPUT#2,A$,B$,C$,D$ 

180 PRINTA$","B$","C$","D$ 


00,OK,00,00 


E' necessario cambiare il numero di periferica se si 
desidera utilizzare piu' di un' unita' a dischi. Per 
questo cambiare il numero di periferica della seconda 
unita' a dischi in 9. 

Questo cambiamento effettuato via SOFTWARE resta 
operante fino a quando non si proceda ad un RESET di 
sistema che potrà' essere ottenuto sia sull' unita' a 
disco sia sull' unita' centrale. 


NOTA 

Se dovessero rendersi necessari cambiamenti permanenti, 
cioè' se si desidera utilizzare sempre due unita' a 
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dischi, si consiglia di far effettuare 1' opportuna 
modifica hardware presso un qualsiasi centro di 
assistenza COMMODORE. 

Poiché' molti parametri del DOS sono su RAM si possono 
eseguire cambiamenti su larga scala relativamente alle 
funzioni del SISTEMA OPERATIVO DISCO stesso come per 
esempio Io STEP SIZE, con il quale viene determinato il 
numero di settori per traccia. 

L' indirizzo relativo a questa funzione e' il 105 ($69) 
che normalmente contiene il valore 10. 

Si può' anche dichiarare un numero di tentativi di 
lettura prima che venga restituito l'errore, cambiando 
il contenuto all' indirizzo 106($6A) che normalmente 
contiene il valore 5. 


MEMORY-EXECUTE M-E 


Utilizzando questo comando si può' chiamare e mettere in 
funzione, cioè' far eseguire una routine in linguaggio 
macchina che sia presente nella memoria del SISTEMA 
OPERATIVO DISCO. 

Come gli altri, anche questo comando può' essere dato 
con una forma ridotta M-E, tenendo tuttavia presente che 
la routine che andra' in esecuzione deve terminare con 
un RTS (RETURN FROM SUBROUTINE) che ha per codice $60. 

La sintassi del comando e'; 

M-E CHR$(L0) CHR$(HI) 


Come sempre i due valori dati dai parametri CHR$ stanno 
ad indicare i bytes relativi all' indirizzo di partenza 
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della subroutine in linguaggio macchina che questo 
comando serve a mettere in funzione. 

Sara' quindi possibile chiamare dal SISTEMA OPERATIVO 
DISCO una subroutine come e' stato fatto relativamente 
al comando M-W, e poi eseguirla. 

Per esempio si può' chiamare una routine che crea un 
messaggio d'errore. L' indirizzo $EFC9 e' il punto di 
partenza della routine che visualizza il messaggio: 

72,disk full 


100 OPEN 1,8,15 

110 PRINT//1,"M-E"CHRS(201)CHR$(239) 
120 INPUT#1,A$,B$,CS,D$ 

130 PRINTAS","B$","CS","D$ 


Nella linea 110 1' indirizzo $EFC9 e' scomposto nel byte 
basso (SC9) e byte alto ($EF) ed inviato come parametro 
del comando M-E. Viene quindi letto il canale d'errore 
ed il seguente messaggio visualizzato: 

72 DISK FULL,00,00 

Se desiderate far girare un vostro programma sul 1541, 
questi dovrebbe essere scritto su un Buffer libero e 
quindi richiamato con un comando M-E. 

Dovendo poi utilizzare spesso questo programma, il 
contenuto del buffer dovrebbe essere scritto su un 
bloccò del dischetto. 

Potrà' essere quindi eseguito con un comando B-E che 
caricherà' il contenuto del blocco in un buffer e fara' 
partire automaticamente la routine. 
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I COMANDI USER U 


Utilizzando questi tipi di comandi, cioè' i comandi USER 
(U) ci sono due strade per eseguire i programmi su 
disco. 

La sintassi di questi comandi e' la seguente: 


Dove X può' essere una lettera da A a 3 o un numero da 1 
a 9 0 un (:) che prende il posto di 10. 

Quando un comando di questo tipo e' messo in funzione, 
viene eseguito un salto ad uno dei seguenti indirizzi 
del SISTEMA OPERATIVO DISCO: 


UA UI $CD5F 
UB U2 $DC97 
UC U3 $0500 
UD U4 $0503 
UE U5 $0506 
UF U6 $0509 
UG U7 $050C 
UH U8 $050F 
UI U9 $FF0I 
U3 U; $EAA0 


Ricordiamo che i comandi UI e U2 ( oppure gli 
equivalenti UA e UB) ppossono essere utilizzati al posto 
di BLOCK-READ e BLOCK-WRITE. 

I comandi da U3 a U8 saltano a degli indirizzi nel 
Buffer numero 2 di indirizzo $500. 

Se si desiderano utilizzare numerosi comandi allora 
deve essere proprio in questa zona che sono immessi i 
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valori di salto alle singole routines. 

Se invece viene utilizzato un singolo comando U3 il 
programma può' iniziare direttamente da $500. 

Il comando U3 salta al cosi' detto VETTORE DI RESET e di 
conseguenza 1' unita' a dischi viene resettata. 


100 OPEN 1,8,15 
110 PRINT#1,"U0" 

120 F0RI=1 TO 1000:NEXT 

130 GET#1,A$:PRINTA$:IFST e64THEN130 


73,CBN DOS V2.6 1541,00,00 


Utilizzando i comandi USER i parametri possono essere 
passati alle routines. 

Possibili parametri possono essere indirizzi, codici di 
comando e nomi di files. 

Questo sistema può' essere utilizzato per espandere i 
comandi del disco o per realizzare nuove strutture di 
dati. 


OPERAZIONI DEL DOS 


Il 1541, seguendo una costante nella politica della 
COMMODORE e' un' unita' a dischi intelligente con un suo 
microprocessore ed un suo SISTEMA OPERATIVO appunto il 
DOS o DISK OPERATING SYSTEM. 

Ciò' naturalmente significa che non e' necessario nesun 
spazio nella memoria centrale del computer e che quindi 
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e' sufficiente trasmettere i dati al disco senza nessuna 
sequenza speciale di temporizzazione. 

L' unita' a dischi esegue quindi tre operazioni 
simultaneamente. 

Per primo controlla il traffico dei dati fra esso stesso 
e 1' unita' centrale. 

Secondariamente interpreta i comandi ed esegue 

operazioni a livello di manipolazione dei files, dei 
relativi canali di comunicazione associati e dei 
buffers. 

Terzo esegue una serie di operazioni chiamate 

HARDWARE-ORIENTED come la formattazione del dischetto, 
lettura e scrittura dati e programmi, cancellazione, 
validate, ecc. 

Queste operazioni sono messe in funzione simultaneamente 
dal microprocessore 6502 attraverso 1' utilizo delle 
tecniche di INTERRUPT. 

Molte delle funzioni relative al DOS riguardano 

l'esecuzione dei comandi trasmessi dal computer. 

La ricezione dei dati e comandi dal computer e' 

controllata dagli INTERRUPTS. 

Se il computer desidera colloquiare con un' unita' 
periferica dovrà' inviare un impulso lungo la linea di 
ATM. 

Ciò' genera un' interruzione (appunto un INTERRUPT) 
sull' unita' a dischi. 

A questo punto il DOS interrompe il lavoro che 
attualmente sta eseguendo e prende nota che il computer 
desidera inviare dei dati. 

E' da notare il termine prende nota perche' in effetti 
il DOS riprende immediatarnnte il suo lavoro, lo porta a 
termine e si prepara a ricevere i dati dal computer.. 
Quando 1' invio dèi comandi e' terminato, il disco resta 
in posizione o ciclo d' attesa per nuovi comandi o dati. 
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L' esecuzione di un comando a questo livello e' limitata 
all' esecuzione logica del comando, al controllo dei 
canali di comunicazione da e per il computer e la 
preparazione e la ricerca di dati che devono 
rispettivamente essere letti o scritti. 

Le operazioni- del controller, di formattazione, 
scrittura e lettura dei singoli blocchi deve essere 
eseguita dal processore. 

Anche queste operazioni sono controllate dalle fasi di 
INTERRUPT. 

L' esecuzione dei normali programmi e' interrotta ogni 
14 millisecondi da un temporizzatore. 

La comunicazione fra due programmi indipendenti e' 
manipolata attraverso una comune area di memoria. 

Informazioni piu' dettagliate ed approfondite circa il 
modo ed i sistemi di lavoro del disco si possono trovare 
nel già' citato manuale LE PERIFERICHE COMMODORE ed. EVM 

A partire dalle seguenti pagine riportiamo il contenuto 
delle prime pagine di memoria del disco e 1' intero DOS 
disassemblato. 
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LE PORTE DI INGRESSO E USCITA 


VIA 6522 1, Porta per il BUS seriale 


$1800 Port B 

$1801 Port A 

$1802 DATA DIRECTION B 

$1803 DATA DIRECTION A 

PB 0 : DATA IN 

PB 1 : DATA OUT 

PB 2 : CLOCK IN 

PB 3 : CLOCK OUT 

PB 4 ; ATN A 

PB 5,6; Indirizzo periferica 
CB 2 : ATN IN 


VIA 6522 2, Porta motore e R/W HEAD CONTROL 


$1C00 Porta B, controllo di porta 
$1C01 Porta A, dati a e da R/W HEAD 
$1C02 DATA DIRECTION A 

$1C03 DATA DIRECTION B 

PB 0: STP I 

PB 1; STP 0 STEPPER MOTOR(movimento 

testina) 

PB 2: MTR pilotaggio motore 

PB 3: ACT accensione LED 

PB 4: WPS SWITCH di protezione scrittura. 

PB 7 : SYNC 

CA 1 : Byte ready 

CA 2 : SOE 
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PRINCIPALI 

INDIRIZZI 

DI MEMORIA DISCO 

0 

$00 

Codice di comando per Buffer 0 

1 

$01 

Codice di comando per Buffer 1 

2 

$02 

Codice di comando per Buffer 2 

3 

$03 

Codice di comando per Buffer 3 

4 

$04 

Codice di comando per Buffer 4 

6 

$06-07 

Traccia e settore per Buffer 0 

8 

$08-09 

Traccia e settore per Buffer 1 

IO 

$OA-OB 

Traccia e settore per Buffer 2 

12 

$OC-OD 

Traccia e settore per Buffer 3 

14 

$OE-OF 

Traccia e settore per Buffer 4 

18 

$12-13 

ID per drive 0 

20 

$14-15 

ID per drive 1 

22 

$16-17 

ID 

32 

$20-21 

FLAG per movimento testina 

48 

$30-31 

Puntatore Buffer per Disk 
Controller 

57 

$39 

Costante 8, segna 1' inizio dei 
dati del blocco di testa 

58 

$3A 

Segnale di parità' per i dati del 
Buffer 

61 

$3D 

N. drive per il Disk Controller 

63 

$3F 

N. Buffer per il Disk Controller 

67 

$43 

N. del settori per traccia per la 
formattazione 

71 

$47 

Costante 7, segna 1' inizio dei 
dati del blocco di testa 

73 

$49 

Stack Pointer 

74 

$4A 

Contatore passi per testina 

81 

$51 

N. dell' attuale traccia per la 


formattazione. 
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105 

$69 

Ampiezza per la divisione di 
settore (10) 

106 

$6A 

N. dei tentativi di lettura. 

111 

$6F-70 

Puntatore all' indirizzo per 
comandi M e B. 

119 

$77 

N. di periferica (4$20) per LISTEN 

120 

$78 

N. di periferica (+$40) per TALK 

121 

$79 

Flag per LISTEN 

122 

$7A 

Flag per TALK 

124 

$7C 

Flag per ATN di ricez. dati dal 

Bus seriale 

125 

$70 

Flag per EOI dal Bus seriale 

127 

$7F 

N. di periferica. 

128 

$80 

N. traccia 

129 

$81 

N. settore 

130 

$82 

N. canale 

131 

$83 

Indirizzo secondario 

132 

$84 

Indirizzo secondario 

133 

$85 

Byte dati 

139 

$8B-8D 

Area di immag. per divisione 

148 

$94-95 

Attuale puntatore del Buffer 

153 

$99-9A 

Indirizzo Buffer 0 ($300) 

155 

$9B-9C 

Indirizzo Buffer I ($400) 

157 

$9D-9E 

Indirizzo Buffer 2 ($500) 

159 

$9F-A0 

Indirizzo Buffer 3 ($600) 

161 

$A1-A2 

Indirizzo Buffer 4 ($700) 

163 

$A3-A4 

Puntatore al Buffer di input a $200 

165 

$A5-A6 

Puntatore al Buffer per i mess. 
di errore. 

181 

$B5-BA 

Record LO, Blocco LO 

187 

$BB-C0 

Record HI, Blocco HI. 

193 

$C1-C6 

Puntatore scrittura file rei. 

199 

$C7-CC 

Lunghezza record per file rei. 

212 

$04 

Puntatore NEL record per file rei. 

213 

$05 

N. di side sector 

214 

$06 

Puntatore al blocco dati nel side 
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sector 


215 

$D7 

Puntatore al record nel file rei. 

231 

$E7 

Tipo di file 

249 

$F9 

N. Buffer 

256-325 

$100-145 

Area di stack 

512-552 

$200-228 

Buffer per stringa comando 

586 

$24A 

Tipo di file 

600 

$258 

Lunghezza record' 

601 

$259 

Traccia side sector 

602 

$25A 

Settore side sector 

628 

$274 

Lunghezza della linea di input 

632 

$278 

N. nomi di files 

633 

$279 

Metodo controllo file 

640-644 

$280-284 

Traccia di un file 

645-649 

$285-289 

Settore di un file 

725-761 

$2D5-2F9 

Buffer per mess. d' errore 

762-764 

$2FA-2FC 

N. di blocchi liberi 

768-1023 

$300-3FF 

Buffer 0 

1024-1279 

$400-4FF 

Buffer 1 

1280-1535 

$500-5FF 

Buffer 2 

1536-1791 

$600-6FF 

Buffer 3 

1792-2047 

$700-7FF 

Buffer 4 
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*************************** 

ClOO 

78 


SEI 


CIDI 

A9 

F7 

LDA 

♦ $F7 

C103 

2D 

00 IC 

AND 

SICOO 

C106 

48 


PHA 


C107 

A5 

7F 

LDA 

S7F 

C109 

FO 

05 

BEO 

seno 

ClOB 

68 


PLA 


ClOC 

09 

00 

ORA 

(iSOO 

CIOÈ 

DO 

03 

BNE 

SC113 

Clio 

68 


PLA 


CHI 

09 

08 

ORA 

#$08 

C113 

8D 

00 IC 

STA 

$1COO 

C116 

58 


CLI 


C117 

60 


RTS 





C118 

78 



SEI 


C119 

A9 

08 


LDA 

f $08 

CllB 

OD 

00 

IC 

ORA 

$1C00 

CHE 

8D 

00 

IC 

STA 

$1C00 

C121 

58 



CLI 


C122 

60 



RTS 





C123 

A9 

00 


LDA 

#$00 

C125 

8D 

6C 

02 

STA 

$026C 

C128 

8D 

6D 

02 

STA 

$026D 

C12n 

60 



RTS 


******«**********************< 

C12C 

78 



SEI 


C12D 

8A 



TXA 


C12E 

48 



PHA 


C12F 

A9 

50 


LDA 

#$50 

C131 

8D 

6C 

02 

STA 

S026C 

C134 

A2 

00 


LDX 

#$00 

C136 

BD 

CA 

FE 

LDA 

$FECA,X 

C139 

8D 

6D 

02 

STA 

$026D 

C13C 

OD 

00 

IC 

ORA 

$1C00 

C13F 

8D 

00 

le 

STA 

$1COO 

C142 

68 



PLA 


C143 

AA 



TAX 


C144 

58 



CLI 


C145 

60 



RTS 



C146 

A9 

00 


LDA 

#S00 

C148 

8D 

F9 

02 

STA 

S02F9 

C14B 

AD 

8E 

02 

LDA 

$028E 


turn LED on 
erase LED bit 

drive number 
0 ? 

not drive 0, turn LED off 

turn LED on 

turn LED on 

LED on 

erase error flags 

save X register 

8 

turn LED on 

get X register back 

interpret coromand from 
computer 

last drive number 
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C14E 

85 

7F 


STA 

S7F 

C150 

20 

BC 

E6 

JSR 

SE6BC 

C153 

A5 

84 


LDA 

$84 

0155 

10 

09 


BPL 

$C160 

CI 57 

29 

OF 


AND 

#S0F 

C159 

C9 

OF 


CHP 

#$0F 

C15B 

FO 

03 


BEO 

$C160 

C15D 

4C 

B4 

D7 

JKP 

$D7B4 

C160 

20 

B3 

C2 

JSR 

SC2B3 

C163 

B1 

A3 


LDA 

(SA3),Y 

C165 

8D 

75 

02 

STA 

$0275 

C168 

A2 

OB 


LDX 

#$0B 

C16A 

BD 

89 

FE 

LDA 

$FE89,X 

C16D 

CD 

75 

02 

CHP 

$0275 

C170 

FO 

08 


BEO 

$C17A 

C172 

CA 



DEX 


C173 

10 

F5 


BPL 

$C16A 

C175 

A9 

31 


LDA 

#$31 

C177 

4C 

C8 

CI 

JMP 

$C1C8 

C17A 

8E 

2A 

02 

STX 

$022A 

C17D 

EO 

09 


CPX 

#$09 

C17F 

90 

03 


BCC 

$C184 

C181 

20 

EE 

CI 

JSR 

$C1EE 

C184 

AE 

2A 

02 

LDX 

$022A 

C187 

BD 

95 

FE 

LDA 

$FE95,X 

C18A 

85 

6F 


STA 

$6F 

CISC 

BD 

Al 

FE 

LDA 

$FEA1,X 

C18F 

85 

70 


STA 

$70 

C191 

6C 

6F 

00 

JMP 

(S006F) 


C194 

A9 

00 


LDA 

#$00 

C196 

8D 

F9 

02 

STA 

$02F9 

C199 

AD 

6C 

02 

LDA 

$026C 

C19C 

DO 

2A 


BNE 

$C1CR 

C19E 

AO 

00 


LDY 

#$00 

CIAO 

98 



TYA 


ClAl 

84 

80 


STY 

$80 

C1A3 

84 

81 


STY 

$81 

C1A5 

84 

A3 


STY 

$A3 

C1A7 

20 

C7 

E6 

JSR 

$E6C7 

CIAA 

20 

23 

CI 

JSR 

$C123 

CIAD 

A5 

7F 


LDA 

$7F 

CIAF 

8D 

8E 

02 

STA 

$028E 

C1B2 

AA 



TAX 


C1B3 

A9 

00 


LDA 

#$00 

C1B5 

95 

FF 


STA 

$FF,X 

C1B7 

20 

BD 

CI 

JSR 

$ClBn 

CIBA 

4C 

DA 

D4 

JMO 

$D4DA 


****************************** 

CIBO AO 28 LDY #S28 

CIBF A9 00 LDA «SOO 


drive number 
prepare 'ok' message 
secondary address 

15, comniand channel 
yes 

to OPEN coinraand 
detergine line length and 
erase flags 
get first character 
and store 
11 

commands 

compare to fitst character 
found? 


not found 

31, 'syntax error' 

number of command words 

command number < 9? 
test for ’R’, 'S', and 'N' 
command number 
jump address lo 

jump address hi 

jump to command 

prepare error message after 
executing command 


flag set? 

yes, then set error message 

error number 0 
track number 0 
sector number 0 

prepare 'ok' message 
erase error flag 
drive number 

save as last drive number 


erase input buffer 
dose internai channel 

erase input buffer 
erase 41 characters 
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elei 

99 

00 02 

STA 

$0200,Y 

eie4 

88 


DE? 


eies 

10 

FA 

BPL 

$eiei 

eie? 

60 


RTS 


*****ttt ********************* 

elee 

AO 

00 

LDY 

#$00 

eieA 

84 

80 

STY 

$80 

elee 

84 

81 

STY 

$81 

eieE 

4e 

45 E6 

JMP 

SE645 


***************************** 

eiDi 

A2 

00 


LDX 

#S00 

eiD3 

8E 

7A 

02 

STX 

S027A 

eiD6 

A9 

3A 


LDA 

#$3A 

eiD8 

20 

68 

e2 

JSP 

$0268 

eiDB 

FO 

05 


BEO 

$eiE2 

eiDD 

88 



DEY 


eiDE 

88 



DEY 


eiDF 

8e 

7A 

02 

STY 

$027A 

eiE2 

4e 

68 e3 

JMP $e368 

***************************** 

eiE5 

AO 

00 


LDY 

#$00 

eiE7 

A2 

00 


LDX 

#S00 

eiE9 

A9 

3A 


LDA 

#$3A 

eiEB 

4e 

68 

e2 

JMP 

$0268 

***************************** 

eiEE 

20 

E5 

ei 

JSB 

$eiE5 

eiFi 

DO 

05 


BNE 

$eiF8 

eiF3 

A9 

34 


LDA 

#$34 

eiF5 

4e 

es 

ei 

JMP 

$0108 

eiF8 

88 



DEY 


eiF9 

88 



DEY 


eiFA 

8e 

7A 

02 

STY 

$027A 

eiFD 

8A 



TXA 


eiFE 

DO 

F3 


BNE 

$eiF3 

e2oo 

A9 

3n 


LDA 

#$3D 

e202 

20 

68 

C2 

JSR 

$0268 

e205 

8A 



TXA 


C206 

FO 

02 


BEO 

$e20A 

C208 

A9 

40 


LDA 

#S40 

C20A 

09 

21 


ORA 

#$21 

C20C 

8D 

8B 

02 

STA 

$02RB 

e20F 

E8 



INX 


e2io 

8E 

77 

02 

STX 

$0277 

e2i3 

8E 

78 

02 

STX 

$0278 

e2i6 

AD 

8A 

02 

LDA 

$028A 

e2i9 

FO 

OD 


BEO 

$0228 

e2iB 

A9 

80 


LDA 

#S80 

e2iD 

OD 

8B 

02 

ORA 

S028B 

e220 

8D 

8B 

02 

STA 

S028B 


$200 to $228 


give error message 
(track & sector) 

track = 0 
sector = 0 

error numbor acc, generate 
error message 

check input line 

pointer to drive number 

' : ' 

test line to or to end 
no colon found? 

point to drive number 
(before colon) 

get drive # and turn LEO on 

check input line 
pointer to input buffer 
counter for commas 

■ . t 

test line to colon or to end 

check input line 
test line to or end 
colon found? 

34, 'syntax error' 

set pointer to colon 
position of thè drive no. 
comma before thè colon 
yes, then 'syntax error' 

I — I 

check input to '=' 
comma found? 
no 

bit 6 

and set bit 0 and 5 
flag for syntax check 


wildcard found? 
no 

set bit 7 
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C223 

A9 

00 


LDA 

#S00 

C225 

8D 

8A 

02 

STA 

$028A 

C22B 

98 



TYA 


C229 

FO 

29 


BEO 

$C254 

C22B 

9D 

7A 

02 

STA 

S027A,X 

C22E 

AD 

77 

02 

LDA 

$0277 

C231 

8D 

79 

02 

STA 

$0279 

C234 

A9 

8D 


LDA 

(;$8D 

C236 

20 

68 

C2 

JSR 

$C268 

C239 

ES 



INX 


C23A 

8E 

78 

02 

STX 

$0278 

C23D 

CA 



DEX 


C23E 

AD 

8A 

02 

LDA 

S028A 

C24A 

FO 

02 


BEO 

$C245 

C24 3 

A9 

08 


LDA 

)!$08 

C245 

EC 

77 

02 

CPX 

$0277 

C248 

FO 

02 


BEO 

$C24C 

C24A 

09 

04 


ORA 

)IS04 

C24C 

09 

03 


ORA 

#$03 

C24E 

4D 

8B 

02 

EOR 

S028B 

C251 

8D 

8B 

02 

STA 

$028B 

C254 

AD 

8H 

02 

LDA 

S028B 

C257 

AE 

2A 

02 

LDX 

S022A 

C25A 

3D 

A5 

FE 

AND 

SFEA5,X 

C25D 

DO 

01 


BNE 

$C260 

C25F 

60 



RTS 


C260 

8D 

6C 

02 

STA 

$026C 

C263 

A9 

30 


LDA 

#$30 

C265 

4C 

C8 

CI 

OMP 

SC1C8 




C268 

8D 

75 

02 

STA 

$0275 

C26B 

CC 

74 

02 

CPY 

$0274 

C26R 

PO 

2E 


BCS 

SC29E 

C270 

B1 

A3 


LDA 

{SA3),Y 

C272 

C8 



INY 


C273 

CD 

75 

02 

CMP 

$0275 

C276 

FO 

28 


BEO 

SC2A0 

C278 

C9 

2A 


CMP 

4S2A 

C27A 

FO 

04 


BEO 

$C280 

C27C 

C9 

3F 


CMP 

#S3F 

C27E 

DO 

03 


BNE 

$C283 

C280 

EE 

8A 

02 

Its'C 

S028A 

C283 

C9 

2C 


CMP 

#$2C 

C285 

DO 

E4 


BNE 

$C26B 

C287 

98 



TYA 


C288 

9D 

7B 

02 

STA 

$027B,X 

C28P 

AD 

8A 

02 

LDA 

$028A 

C28E 

29 

7F 


AND 

#S7F 

C290 

FO 

07 


BEO 

SC299 

C292 

A9 

80 


LDA 

#$80 

C294 

95 

E7 


STA 

SE7,X 

C296 

8D 

8A 

02 

STA 

S028A 

C299 

E8 



INX 



reset wildcard flag 
'=' found? 
no 

nunber of commas before '=' 
shift CR 

check line to end 
increment comma counter 
store # of commas 

wildcard found? 
no 

set bit 3 
comma after 
no 

set bit 2 

set bits 0 and 1 

as flag for syntax check 
syntax flag 
command number 
combine with check byte 


set error flag 

30, 'syntax error' 

search characters in input 
buffer 

save character 
already done? 
yes 

get char from buffer 

compared with char 
found 

1 * I 

' ? ' 

set wildcard flag 

1 I 

, 


note comma position 
wildcard flag 

no wildcard 

note flag 

and save as wildcard flag 
ine comma counter 
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C29A 

EO 

04 


CPX 

tt$04 

C29C 

90 

CD 


BCC 

SC26B 

C29E 

AO 

00 


LDY 

#$00 

C2A0 

AD 

74 

02 

I.DA 

$0274 

C2A3 

9D 

7B 

02 

STA 

$027B,X 

C2A6 

AD 

8A 

02 

LDA 

$028A 

C2A9 

29 

7P 


AND 

#S7P 

C2Ah 

PO 

04 


BEO 

$C2B1 

C2AD 

A9 

80 


LDA 

#$80 

C2A1’ 

95 

E7 


STA 

$E7,X 

C2B1 

98 



TYA 


C2B2 

60 



RTS 


*****************************. 

C2H3 

A4 

A3 


LDY 

$A3 

C2I15 

KO 

14 


BEO 

$C2CB 

C2U7 

88 



DKY 


C21i8 

I-’O 

10 


BEO 

$C2CA 

C2I1A 

B9 

00 

02 

LDA 

$0200,Y 

C2BD 

C9 

OD 


CMP 

#$0D 

C2B1'' 

PO 

OA 


BEO 

$C2CB 

C2C1 

88 



DBY 


C2C2 

B9 

00 

02 

LDA 

$0200,Y 

C2C5 

C9 

OD 


CMP 

#$0D 

C2C7 

PO 

02 


BEO 

$C2CB 

C2C9 

C8 



INY 


C2CA 

C8 



INY 


C2CB 

8C 

74 

02 

STY 

$0274 

C2CB 

CO 

2A 


CPY 

#$2A 

C2D0 

AO 

PP 


LDY 

#$PP 

C2D2 

90 

08 


BCC 

$C2DC 

C2D4 

8C 

2A 

02 

STY 

$022A 

C2n7 

A9 

32 


LDA 

#$32 

C2I)9 

4C 

C8 

CI 

JMP 

$C1C8 


****************************** 


C2 DC 

AO 

00 


LDY 

#$00 

C2DE 

98 



TYA 


C2 DP 

86 

A3 


STA 

$A3 

C2E1 

8D 

58 

02 

STA 

$0258 

C2E4 

OD 

4A 

02 

STA 

S024A 

C2E7 

8D 

96 

02 

STA 

$0 296 

C2EA 

85 

D3 


STA 

SD3 

C2EC 

8D 

79 

02 

STA 

$0279 

C2EP 

8D 

77 

02 

STA 

$0277 

C2P2 

8D 

78 

02 

STA 

$0278 

C2P5 

OD 

8A 

02 

STA 

S028A 

C2P0 

OD 

6C 

02 

S’J’A 

$0 26C 

C2PB 

A2 

05 


LDX 

#$05 

C2PD 

9D 

79 

02 

STA 

$0279,X 

C300 

95 

D7 


STA 

SD7 ,X 

C30 2 

95 

DC 


STA 

$ DC, X 

C304 

95 

E1 


STA 

SEI ,X 

0306 

9 5 

i;6 


STA 

SEf. ,X 


4 commas already? 
no, continue 

set Élag for line end 

wildcard Clag 

no wildcard 

set Clag 


check line length 

ptr to command input buffer 

zero? 

one? 

pointer to input buffer 

•CR' 

yes, line end 

preceding charactor 

■CR' 

yes 

pointer to old value again 

same line length 

compare with 42 characters 

smallcr, ok 


32, ‘syntax error' line too 
long 

erasc flag for input command 


pointer to input buffer lo 
record length 
Cile type 


comma counter 


wildcard flag 
error Clag 

flngs for lino analysls 
directory soctors 
buffer pointer 
drive number 
wildcard flag 
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C308 

9D 

7F 

02 

STA 

$027F,X 

C30n 

9D 

84 

02 

STA 

S02B4,X 

C30E 

CA 



DEX 


C30F 

DO 

EC 


BNE 

$C2FD 

C311 

60 



RTS 


*****************************1 

C312 

AD 

78 

02 

EDA 

$0278 

C315 

8D 

77 

02 

STA 

$0277 

C318 

A9 

01 


EDA 

#$01 

C31A 

8D 

78 

02 

STA 

$0278 

C31D 

8D 

79 

02 

STA 

$0279 

C320 

AC 

8E 

02 

EDy 

$02UE 

C323 

A2 

00 


LDX 

#$00 

C325 

86 

113 


STX 

$03 

C327 

HU 

7A 

02 

EDA 

S027A,X 

C3 2A 

20 

3C 

C3 

JSB 

$C33C 

C32D 

A6 

D3 


EDX 

$D3 

C32K 

9D 

7A 

02 

STA 

$027A 

C332 

98 



TYA 


C333 

95 

E2 


STA 

$fi2,X 

C335 

E8 



INX 


C336 

EC 

78 

02 

CFX 

$0278 

C339 

90 

EA 


lice 

$C325 

C33H 

60 



ins 



****************************** 


C33C 

AA 



TAX 


C33D 

AO 

00 


EDY 

#$00 

C3 3F 

A9 

3A 


EDA 

#$3A 

C341 

DD 

01 

02 

CMP 

$0201,X 

C344 

FO 

OC 


BEO 

$C352 

C346 

DD 

00 

02 

CMP 

$0200,X 

C349 

DO 

16 


BNE 

$C361 

C34B 

E8 



INX 


C34C 

90 



TYA 


C34D 

29 

01 


AND 

#$01 

C34F 

A8 



TAY 


C350 

8A 



TXA 


C351 

60 



RTS 


C352 

DD 

00 

02 

EDA 

$0200,X 

C35S 

E8 



INX 


C356 

E8 



INX 


C357 

C9 

30 


CMP 

#$30 

C359 

PO 

F2 


BEO 

$C34D 

C35H 

C9 

31 


CMP 

#$3l 

C35D 

FO 

EE 


BEO 

$C34D 

C35F 

DO 

EB 


BNE 

$C34C 

C361 

98 



'l'YA 


C362 

09 

80 


ORA 

»$80 

C364 

29 

81 


AND 

#$81 

C366 

DO 

E7 


BNE 

$C34F 




track nuinhor 
sector numbcr 


proserve drive nuitibor 
numbcr of commas 
save 

number o£ drive numbers 
last drive nuirber 


position o£ thè colon 
fjet drive no. bo£oro colon 

savo oxact position 

drive number in table 

got all drive numbers? 
no, continuo 


search for drive number 
noto position 

« . I 

colon behind it? 
yes 

colon bore? 
no 


drive number 


get drive number 

• 0 '? 
yos 
■ !■? 
yos 

no, use last drive number 
last drive number 
set bit 7, uncertain drive It 
orase remaining bits 


get drive number 


114 



I SEGRETI DEL 1541 


C368 

A9 

00 


EDA 

#S00 

C36A 

80 

nn 

02 

STA 

$028B 

C36D 

AC 

7A 

02 

l,DY 

S027A 

C37() 

in 

A3 


I.DA 

(SA3),? 

C372 

20 

DD 

C3 

JSR 

$C3DD 

C375 

10 

11 


DPL 

SC380 

C377 

C8 



IN? 


C37B 

CC 

74 

02 

CP? 

$0274 

C37B 

DO 

06 


BCS 

$C383 

C37D 

AC 

74 

02 

LD? 

$0274 

C380 

88 



DE? 


C381 

DO 

RD 


DNE 

$C370 

C3ft3 

CE 

BD 

02 

DEC 

$028D 

0386 

A9 

00 


EDA 

(t$00 

C388 

29 

01 


AND 

#$01 

C30A 

85 

7P 


STA 

$7P 

C38C 

4C 

00 

CI 

JMP 

SClOO 

*****************************1 

C38K 

A5 

7P 


EDA 

$7P 

C391 

49 

01 


EOR 

#$01 

C393 

29 

01 


AND 

#S01 

C395 

85 

7P 


STA 

$7P 

C397 

60 



KTS 


*************************4***; 

C398 

AO 

00 


ED? 

#$00 

C39A 

AD 

77 

02 

EDA 

$0277 

C39D 

CD 

78 

02 

CMP 

$0278 

C3A0 

PO 

16 


DEO 

SC3D8 

C3A2 

CE 

78 

02 

DEC 

$0278 

C3A5 

AC 

78 

02 

ED? 

$0278 

C3A8 

H9 

7A 

02 

EDA 

$027A,? 

C3AK 

AB 



TA? 


C3AC 

DI 

A3 


EDA 

(SA3),? 

C3AE 

AO 

04 


ED? 

#$04 

C3no 

D9 

DD 

FE 

CMP 

SFEDD,? 

C3U3 

PO 

03 


DEO 

SC3D8 

C3B5 

88 



DE? 


C3U6 

DO 

P8 


DNE 

$C3U0 

C3B8 

98 



T?A 


C3H9 

RD 

96 

02 

STA 

$0296 

C3I-1C 

60 



RTS 





C3DD 

C9 

30 

CMP 

#$30 

C3BF 

PO 

06 

DEO 

$C3C7 

C3C1 

C9 

31 

CMP 

#$31 

C3C3 

PO 

02 

BEO 

$C3C7 

C3C5 

09 

80 

ORA 

#S80 

C3C7 

29 

81 

AND 

#S81 

C3C9 

60 


RTS 



erase syntax flag 

position in comtnand line 

get chars from coiiunand buffer 

get drive nurobor 

certain numbor? 

incrcment pointer 

line end? 

yes 


search line for drive no. 


drive numbor 
turn LEO on 

reverso drive number 
drive numbor 
switch bit 0 


establish filo typo 
•=• found? 
no 

get pointer 

set pointer to character 
bchind 

pointer to buffer 
comparo with marker for 
filo type 

•S', ’P', ’U', 'R' 

agreement 


noto file typo (1-4) 


check ririvo number 

• 0 ' 

■ 1 ' 

no zero or one, thon set bit 7 
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**************************** 


C3CA 

A9 

00 


LOA 

»$00 

C3CC 

85 

6F 


STA 

$6F 

C3CE 

80 

8D 

02 

STA 

$0280 

C3D1 

48 



PHA 


C3D2 

AE 

78 

02 

LDX 

$0278 

C3D5 

68 



PLA 


C3D6 

05 

6F 


ORA 

$6F 

C3D8 

48 



PHA 


C3D9 

A9 

01 


LOA 

#$01 

C3DB 

85 

6F 


STA 

$6F 

C3DD 

CA 



DEX 


C3DE 

30 

OF 


UHI 

$C3EF 

c3i;o 

115 

E2 


LOA 

SE2 ,X 

C3E2 

10 

04 


BPL 

$C3E0 

C3E4 

06 

6F 


ASL 

$6F 

C3E6 

06 

6F 


ASL 

$6F 

C3E8 

4A 



LSR 

A 

C3E9 

90 

EA 


lice 

$C305 

C3i:u 

06 

6F 


ASL 

$6F 

C3ED 

DO 

E6 


ONE 

SC3D5 

C3Ef 

68 



PLA 


C3E0 

AA 



TAX 


C3F1 

no 

3F 

C4 

LOA 

SC43F 

C3f4 

48 



PHA 


C3F5 

29 

03 


ANO 

#$03 

C3F7 

80 

OC 

02 

STA 

$028C 

C3FA 

68 



PLA 


C3Fn 

OA 



ASL 

A 

C3FC 

10 

3E 


BPL 

$C43C 

C3FE 

A5 

R2 


LOA 

$E2 

C400 

29 

01 


AND 

#$01 

C402 

85 

7F 


STA 

S7F 

C404 

AD 

OC 

02 

LOA 

$028C 

C407 

FO 

28 


BEO 

$C434 

C409 

20 

3D 

C6 

JSR 

$C630 

C40C 

FO 

12 


BEO 

$C4 20 

C40E 

20 

8F 

C3 

JSR 

$C38F 

C411 

A9 

00 


LOA 

#$00 

C413 

80 

8C 

02 

STA 

$028C 

C416 

20 

30 

C6 

JSR 

$C63D 

C419 

FO 

lE 


BEO 

$C439 

C41b 

A9 

74 


LOA 

#$74 

C41D 

20 

C8 

CI 

JSR 

SC1C8 

C4 20 

20 

8F 

C3 

JSR 

$C38F 

C423 

20 

30 

C6 

JSR 

$C63D 

C4 26 

08 



PHP 


C427 

20 

OF 

C3 

JSR 

SC30F 

C4 2A 

28 



PLP 


C42B 

FO 

OC 


BEO 

$C4 39 

C42D 

A9 

00 


LOA 

#$00 

C4 2F 

OD 

8C 

02 

STA 

$028C 

C432 

FO 

05 


BEO 

$C439 

C4 34 

20 

3D 

C6 

JSR 

$C63D 


** veri£y drive number 

number of drive numbors 


X got syntax £lag 


isolate drive number 

initialze drive 
error? 

switch to other drive 

initialize drive 
no error? 

74, 'drive not ready' 

initializc drive 
switch to other drive 
no error? 
number o£ drivos 
initialize drive 
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C4 37 

DO 

B2 


(INE 

SC41B 

C4 39 

4C 

00 

CI 

JHP 

SClOO 

C4 3C 

2A 



HOL 

A 

C4 3D 

4C 

00 

C4 

JMP 

$C400 

A*************************** 

C440 

00 

80 

41 

01 01 

01 01 

C448 

81 

81 

MI 

42 42 

42 42 

**A**A********A************A 

C4 4E 

20 

CA 

C3 

JSR 

SC3CA 

C4 52 

A9 

00 


LDA 

ItSOO 

C454 

8D 

92 

02 

STA 

$0292 

C457 

20 

AC 

C5 

JSR 

SC5AC 

C4 5A 

DO 

19 


UN E 

$C475 

C45C 

CE 

8C 

02 

DEC 

S028C 

C45E 

10 

01 


UPL 

$C462 

C461 

60 



RTS 


C462 

A9 

01 


LDA 

«SOI 

C464 

8D 

8D 

02 

STA 

$028D 

C467 

20 

8F 

C3 

JSR 

SC38F 

C46A 

20 

00 

CI 

JSR 

SClOO 

C46D 

4C 

52 

C4 

JMP 

$C452 

C470 

20 

17 

C6 

JSR 

SC617 

C473 

FO 

10 


BEO 

SC485 

C475 

20 

D8 

C4 

JSR 

$C4D8 

C478 

AD 

BF 

02 

LDA 

S028F 

C47n 

FO 

01 


BEO 

SC47E 

C47D 

60 



RTS 


C47E 

AD 

53 

02 

LDA 

$0253 

C481 

30 

ED 


BMI 

SC470 

C483 

10 

FO 


UPL 

SC475 

C485 

AD 

8F 

02 

LDA 

S028F 

C488 

FO 

D2 


BEO 

SC45C 

C48A 

60 



RTS 


C48B 

20 

04 

C6 

JSR 

SC604 

C48E 

FO 

lA 


BEO 

SC4AA 

C490 

DO 

28 


ONE 

$C4HA 

C492 

A9 

01 


LDA 

«SOI 

C494 

8D 

8D 

02 

STA 

S020D 

C497 

20 

8F 

C3 

JSR 

$C38F 

C49A 

20 

00 

CI 

JSR 

SClOO 

C49D 

A9 

00 


LDA 

«SOO 

C49E 

8D 

92 

02 

STA 

S0292 

C4A2 

20 

AC 

C5 

JSR 

SCSAC 

C4A5 

DO 

13 


BNE 

$C4BA 

C4A7 

8D 

8F 

02 

STA 

$0288 

C4AA 

AD 

8F 

02 

LDA 

S028F 

C4AD 

DO 

28 


BNE 

$C4D7 

C4AE 

CE 

8C 

02 

DEC 

S020C 


error? 

Turo LED on 

drive # from carry after bit 0 


flags for drive check 


soarch for file in directory 
initializc drive 

pointer 

read first directory block 
entry present? 
drive nuiober clear? 
no 


change drive 
Turn LED on 
and search 

search next file in directory 
not found? 

vorify directory entry 
more files? 


filo not found? 
yes 


search next directory block 
not found? 


chango drive 
turn LED on 


read directory block 
foUnd? 
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C4I)2 

10 

DE 


BPL 

SC492 


C4U4 

60 



RTS 



C4B5 

20 

17 

C6 

JSR 

SC617 


C4B8 

FO 

FO 


BEO 

$C4AA 


C4BA 

20 

D8 

C4 

JSR 

$C4D8 


C4Bn 

AE 

53 

02 

LDX 

$0253 


C4C0 

10 

07 


BPL 

$C4C9 


C4C2 

AD 

8F 

02 

LDA 

S028F 


C4C5 

FO 

EE 


BEO 

$C4B5 


C4C7 

DO 

OE 


ONE 

$C4D7 


C4C9 

AD 

96 

02 

LDA 

$0296 


C4CC 

FO 

09 


BEO 

SC467 


C4CK 

B5 

E7 


LDA 

$E7,X 


C4b0 

29 

07 


AND 

#$07 


04112 

CD 

96 

02 

CMP 

$0296 


C4D5 

DO 

DE 


BNE 

$C4B5 


C4D7 

60 



RTS 



C4D8 

A2 

FP 


LDX 

#$FF 


C4DA 

8E 

53 

02 

STX 

$0253 


C4DD 

EH 



INX 



C4 DK 

OE 

8A 

02 

STX 

$02aA 


C4E1 

20 

09 

C5 

JSR 

$C589 


C4i;4 

FO 

06 


BEO 

$C4 EC 


C4E6 

60 



RTS 



C4E7 

20 

94 

C5 

JSR 

$C594 


C4EA 

DO 

FA 


BNE 

$C4E6 


C4 EC 

A5 

7F 


LDA 

$7F 


C4EE 

55 

E2 


EOR 

$E2,X 


C4K0 

4A 



LSR 

A 


C4E1 

90 

OB 


BCC 

$C4FE 


C4F3 

29 

40 


AND 

#$40 


C4F5 

FO 

FO 


BEO 

$C4E7 


C4 F7 

A9 

02 


LDA 

#$02 


C4F9 

CD 

8C 

02 

CMP 

S028C 


C4FC 

FO 

E9 


BEO 

$C4E7 


C4FE 

BD 

7A 

02 

LDA 

$027A, 

X 

C501 

AA 



TAX 



C502 

20 

A6 

C6 

JSR 

$C6A6 


C505 

AO 

of 


LDY 

#$03 


C507 

4C 

ID 

C5 

JMP 

SC51D 


C5()A 

HD 

00 

02 

LDA 

$0200, 

X 

C50D 

DI 

94 


CMP 

($94) , 

Y 

C50F 

FO 

OA 


BEO 

SC51B 


C511 

C9 

3F 


CMP 

#$3F 


C5U 

DO 

D2 


BNE 

SC4E7 


C515 

B1 

94 


LDA 

($94) , 

Y 

Ci 17 

C9 

AO 


CMP 

#SA0 


C519 

FO 

CC 


BEO 

$C4E7 


C51B 

E8 



INX 



C51C 

C8 



INK 




next entry in directory 
not found? 
check entry 

file found? 

yes 

no, then done 


file type 

sarae as desired filo type? 
no 


flag for data found 
set pointer to data 


pointer to next file 
end, then dono 
drive numbor 


scarch hoth drivos? 
yes 

get length of filcname 


got chars out of command line 
samo character in directory? 
yes 

I j I 

no 

shift blank, end of naino? 
yes 

increment pointer 
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C51D 

EC 

76 

02 

CPX 

$0276 

C520 

no 

09 


BCS 

$C52U 

C522 

BD 

00 

02 

I-DA 

$0200,X 

C525 

C9 

2A 


CMP 

(t$2A 

C527 

EO 

OC 


BEO 

$C535 

C529 

DO 

DF 


ONE 

$C50A 

C52B 

CO 

13 


CPY 

#$13 

C52D 

no 

06 


HCS 

SC535 

C521' 

01 

94 


LDA 

($94) ,Y 

C531 

C9 

AO 


CMP 

#$A0 

C533 

DO 

02 


BNE 

$C4i:7 

C535 

AE 

79 

02 

LDX 

$0279 

C538 

SE 

53 

02 

STX 

$0253 

C53« 

05 

E7 


LDA 

SE7,X 

C53n 

29 

80 


AND 

#$80 

C5 3K 

8D 

BA 

02 

STA 

$028A 

C542 

AD 

94 

02 

LDA 

$0294 

C545 

95 

DD 


STA 

$DD,X 

C547 

A5 

81 


LDA 

$81 

C549 

95 

DB 


STA 

$D8,X 

C54I) 

AO 

00 


LDV 

#$00 

C54D 

ni 

94 


LDA 

($94) ,Y 

C54F 

C8 



INY 


C550 

48 



PDA 


C551 

29 

40 


AND 

«$40 

C553 

85 

6F 


STA 

$6F 

C555 

68 



PLA 


C556 

29 

DF 


AND 

#$DF 

essa 

30 

02 


BMI 

$C55C 

C55A 

09 

20 


ORA 

#$20 

C55C 

29 

27 


AND 

»$27 

C55K 

05 

6F 


ORA 

$6F 

C560 

85 

6F 


STA 

$6F 

C562 

A9 

80 


LDA 

#$80 

C564 

35 

E7 


AND 

$E7,X 

C566 

05 

6F 


ORA 

$6F,X 

C568 

95 

E7 


STA 

$E7,X 

C56A 

U5 

E2 


LDA 

$E2,X 

C56C 

29 

80 


AND 

#$80 

C56E 

05 

7F 


ORA 

$7F 

C570 

95 

E2 


STA 

$E2,X 

C572 

01 

94 


LDA 

($94) ,Y 

C574 

9D 

80 

02 

STA 

$0280,X 

C977 

cn 



INV 


C57tì 

01 

94 


I.DA 

($94),Y 

C57A 

9D 

85 

02 

STA 

$0285,X 

C57D 

AD 

58 

02 

LDA 

$0258 

esflo 

DO 

07 


ONE 

$C589 

C582 

AO 

15 


LDV 

#$15 

C584 

ni 

94 


LDA 

($94),Y 

C586 

8D 

58 

02 

STA 

$0258 

C589 

A9 

FF 


LDA 

#$FF 

C58U 

8D 

8F 

02 

STA 

$028F 

C58E 

AD 

78 

02 

LDA 

$0278 


end of thè naitie in thè command? 
yes 

next character 

I * I 

yes, filo found 
continuo search 

19 

reached end of name 

shift blank, end of name 
not found 


sector nuinber of thè directory 
enter in table 

file type 


isolate scratch-protcct bit 
(6) and save 

crasc bit 7 

set bit 5 

crasc bits 3 and 4 
get bit 6 again 


isolate flag for wildcard 
writo in table 


drive number 


first track of filo 


get sector from directory 
record length 


record length 
.get from directory 
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C591 

OD 

79 

02 

STA 

$0279 

C594 

CE 

79 

02 

DEC 

$0279 

C597 

10 

01 


BPL 

$C59A 

C599 

60 



RTS 


C59A 

AE 

79 

02 

LDX 

$0279 

C59D 

n5 

E7 


LDA 

$E7,X 

C59I' 

30 

05 


DMI 

$C5A0 

C5A1 

BD 

80 

02 

EDA 

$0280,X 

C5A4 

DO 

EE 


BNE 

$C594 

C5A6 

A9 

00 


LDA 

#S00 

C5A8 

8D 

8F 

02 

STA 

$028F 

C5AI» 

60 



RTS 


C5AC 

AO 

00 


LDY 

«$00 

C5AE 

8C 

91 

02 

STV 

$0291 

csni 

88 



DEY 


C5n2 

8C 

53 

02 

STY 

$0253 

C5B5 

AD 

85 

FE 

LDA 

$FE85 

C5B8 

85 

80 


STA 

$80 

C5BA 

A9 

01 


LDA 

#$01 

C5BC 

85 

81 


STA 

$81 

C4BE 

81) 

93 

02 

STA 

$0293 

C5C1 

20 

75 

D4 

JSR 

$D475 

C5C4 

AD 

93 

02 

I.DA 

$0293 

C5C7 

DO 

01 


ONE 

$C5CA 

C5C9 

60 



RTS 


C5CA 

A9 

07 


LDA 

#$07 

C5CC 

8D 

95 

02 

STA 

$0295 

C5CK 

A9 

00 


LDA 

#$00 

C5in 

20 

F6 

D4 

JSR 

$D4F6 

C5D4 

OD 

93 

02 

STA 

$0293 

C5D7 

20 

E8 

D4 

JSR 

$D4Ea 

C5DA 

CE 

95 

02 

DEC 

$0295 

C5DD 

AO 

00 


LDY 

#$00 

C5DF 

DI 

94 


LDA 

($94),Y 

C5E1 

DO 

18 


DNK 

$C5FD 

C6E3 

AD 

91 

02 

LDA 

$0291 

C5i;6 

DO 

2F 


BNE 

$C617 

C5E8 

20 

3D 

DE 

JSR 

$DE3U 

C5EU 

A5 

01 


LDA 

$81 

C5ED 

OD 

91 

02 

STA 

$0291 

C5E0 

A5 

94 


LDA 

$94 

C!jF2 

AE 

92 

02 

LDX 

$0292 

C5F6 

8D 

92 

02 

STA 

$0292 

C5F8 

FO 

ID 


BEO 

$C617 

C5FA 

60 



RTS 


C5FB 

A2 

01 


LDX 

#$01 

C5FD 

BC 

92 

02 

CPX 

$0292 

C600 

DO 

2D 


BNE 

$C62F 

C602 

FO 

13 


BEO 

$C617 

Cf)04 

AD 

85 

FE 

LDA 

$FE85 


wildcard flag set? 
yes 

track numbor alrcndy set 
yes 

18, directory track 

soctor 1 
read sector 

number oC directory entries (-1) 

gct pointer from buffer 
savo as track number 
set buffer pointer 
decremont counter 

first byte from directory 

gct track and sector number 
sector number 

buffer pointer 

buffer pointer to ono? 

18, track numbor of 8AM 
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C607 

85 

80 


STA 

$80 

C609 

AD 

90 

02 

t-DA 

$0290 

C60C 

85 

81 


STA 

$81 

C60E 

20 

75 

D4 

JSR 

$D475 

C611 

AD 

94 

02 

LDA 

$0294 

C614 

20 

C8 

D4 

JSR 

$D4C8 

C617 

AD 

FF 


LDA 

#$FF 

Cf.l9 

8n 

53 

02 

STA 

$0253 

C61C 

AD 

95 

02 

LDA 

$0295 

C61K 

30 

08 


BMI 

$C629 

C621 

A9 

20 


LDA 

#$20 

C6 23 

20 

C6 

DI 

JSR 

$D1C6 

C626 

4C 

D7 

C5 

JHP 

$C567 

C629 

20 

4D 

D4 

JSR 

$D44D 

C6 2C 

4C 

C4 

C5 

JMP 

$C5C4 

C62F 

A5 

94 


LDA 

$94 

C631 

8D 

94 

02 

STA 

$0294 

C634 

20 

3B 

DE 

JSR 

$DE3B 

C637 

A5 

81 


LDA 

$81 

C639 

8D 

90 

02 

STA 

$0290 

C6 3C 

60 



RTS 


**************************** 

C63D 

A5 

68 


LDA 

$68 

C63F 

DO 

20 


BNE 

$C669 

C641 

A6 

7F 


LDX 

$7F 

C643 

56 

IC 


LSR 

$1C,X 

C645 

90 

22 


BCC 

$C669 

C647 

A9 

FF 


LDA 

$FF 

C649 

OD 

98 

02 

STA 

$0298 

C64C 

20 

OE 

DO 

JSR 

$D00E 

C64F 

AO 

FF 


LDY 

#$FF 

C651 

C9 

02 


CMP 

#$02 

C653 

PO 

OA 


BEO 

$C65F 

C655 

C9 

03 


CMP 

#$03 

C657 

FO 

06 


BEO 

$C65F 

C659 

C9 

OF 


CMP 

#$0F 

C65B 

FO 

02 


BEO 

$C65F 

C65D 

AO 

00 


LDY 

#$00 

C65F 

A6 

7F 


LDX 

$7F 

C661 

98 



TYA 


C662 

95 

FF 


STA 

$FF,X 

C6G4 

DO 

03 


BNE 

$C669 

C666 

20 

42 

DO 

JSR 

$D042 

C669 

A6 

7F 


LDX 

$7F 

C66B 

B5 

FF 


LDA 

$FF,X 

CGGD 

60 



RTS 


*************************** 

C66B 

48 



PHA 


C66F 

20 

AG 

C6 

JSR 

$C6A6 

C672 

20 

88 

C6 

JSR 

$C688 

C675 

68 



PLA 



track number 

sector number 
read block 

set buffer pointer 

erase-file found flag 

all directory entries checkod? 

ine buffer ptr by 32, next entry 
and continue 

set buffer pointer 
read next block 


get track & sector no. from buffer 
save sector number 


test and initialize drive 


drive number 
disk changed? 
no, then done 

set error flag 
read directory track 

20, 'read error'? 
yes 

21, 'read error'7 
yes 

74, 'drive not ready'? 
yes 

drive number 

save error flag 
error? 
load UAM 
drive number 
transmit error code 


name of file in directory buffer 

get end of thè name 
write filename in buffer 
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C676 

38 

SEC 


C677 

ED 4D 02 

SBC 

$024D 

C67A 

AA 

TAX 


C67B 

FO OA 

BEO 

$C687 

C67D 

90 08 

BCC 

$C687 

C67F 

A9 AO 

LDA 

#SA0 

C681 

91 94 

STA 

($94),Y 

C683 

C8 

INY 


C684 

CA 

DEX 


C685 

DO FA 

BNE 

$C681 

C687 

60 

RTS 





C688 

98 



TYA 


C689 

OA 



ASL 

A 

C68A 

A8 



TAY 


C68D 

B9 

99 

00 

LDA 

$0099,Y 

C68E 

85 

94 


STA 

$94 

C690 

D9 

9A 

00 

LDA 

$009A 

C693 

85 

95 


STA 

$95 

C695 

AO 

00 


LDY 

»$00 

C697 

BD 

00 

02 

LDA 

$0200,X 

C69A 

91 

94 


STA 

($94) ,Y 

C69C 

C8 



INY 


C69D 

FO 

06 


BEO 

$C6A5 

C69F 

E8 



INX 


C6A0 

EC 

76 

02 

CPX 

$0276 

C6A3 

90 

F2 


BCC 

$C697 

C6A5 

60 



RTS 


*****************************1 

C6A6 

A9 

00 


LDA 

#$00 

C6A8 

8D 

4B 

02 

STA 

$024B 

C6AB 

8A 



TXA 


C6AC 

48 



PHA 


C6AD 

BD 

00 

02 

LDA 

$0200,X 

C6B0 

C9 

2C 


CHP 

#$2C 

C6B2 

FO 

14 


BEO 

$C6C8 

C6U4 

C9 

3D 


CMP 

#$3D 

C6B6 

FO 

10 


BEO 

$C6C8 

C6B8 

EE 

4B 

02 

INC 

$0240 

C6DD 

E8 



INX 


C6BC 

A9 

OF 


LDA 

#$0F 

C6BE 

CD 

4B 

02 

CMP 

$024B 

C6C1 

90 

05 


BCC 

$C6CB 

C6C3 

EC 

74 

02 

CPX 

$0274 

C6C6 

90 

E5 


BCC 

$C6AD 

C6C8 

8E 

76 

02 

STX 

$0276 

C6CD 

68 



PLA 


C6CC 

AA 



TAX 


C6CD 

60 



RTS 


************: 


C6CE 

A5 

83 


LDA 

$83 

C6D0 

48 



PHA 



compare len with max length 

pad with ’Shift blank’ 

buffer numbor 
timcs 2 as pointer 

buffer pointer after S94/$95 

transmit characters in buffer 

buffer already full? 

search fot end of name in command 

get characters out of buffer 

t I 
/ 

I - 1 

increment length of name 
15 

greater? 

end of input line? 

pointer to end of name 

secondary address and channol no. 
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C6D1 

A5 

82 


LDA 

$82 


C6D3 

48 



PHA 



C6D4 

20 

DE 

C6 

JSR 

$C6DE 

create filo entry for 

CfiD7 

88 



PLA 


CfiDfi 

85 

82 


STA 

$82 


C6DA 

68 



pr.A 


get data back 

C6DI1 

85 

83 


STA 

$83 


C6DD 

60 



KTS 



******•*.****<,**************** 


C6DE 

A9 

11 


LDA 

#$11 

17 

C6E0 

85 

83 


STA 

$83 

sccondary addrcss 

C6E2 

20 

EB 

DO 

JSR 

$D0ED 

open channel to road 

C6E5 

20 

E8 

D4 

JSR 

$D4E8 

set buffer pointer 

C6E8 

AD 

53 

02 

LDA 

$0253 


C6EB 

10 

OA 


BPL 

$C6 F7 

not yet last entry? 

C6ED 

AD 

no 

02 

LDA 

$028D 


CfiFO 

DO 

OA 


BNE 

$C6FC 


C61’2 

20 

06 

C8 

JSR 

$CB06 

write 'blocks freo.' 

C6F5 

18 



CLC 



C6F6 

60 



RTS 



C6E7 

AD 

8D 

02 

LDA 

$0280 


C6FA 

FO 

IF 


BEO 

$C71B 


C6FC 

CE 

8D 

02 

DEC 

$028D 


C6FF 

DO 

OD 


BNE 

SC70E 


C701 

CE 

SD 

02 

DEC 

$028D 


C704 

20 

8F 

C3 

JSR 

$C38F 

change drive 

C707 

20 

06 

C8 

JSR 

$C806 

write 'blocks free.' 

C70A 

38 



SEC 



C708 

4C 

8F 

C3 

JMP 

$C38F 

change drive 

C70R 

A9 

00 


LDA 

#$00 


C710 

8D 

73 

02 

STA 

$0273 

drive no. for header, 

C713 

8D 

OD 

02 

STA 

$0280 


C716 

20 

B7 

C7 

JSR 

$C7B7 

write header 

C719 

38 



SEC 



C71A 

60 



RTS 



C71H 

A2 

18 


LDX 

#$18 


C7lr) 

AO 

ID 


LDY 

#$1D 


C71F 

HI 

94 


LDA 

($94) ,Y 

number of blocks hi 

C7 21 

8D 

73 

02 

STA 

$0273 

in buffer 

C7 24 

FO 

02 


BEO 

$C728 

zero? 

C726 

A2 

16 


LDX 

#$16 


C728 

88 



DEV 



C729 

HI 

94 


LDA 

($94),y 

number of blocks lo 

C7 2H 

SD 

72 

02 

STA 

$0272 

in buffer 

C72E 

EO 

16 


CPX 

#S16 


C730 

FO 

OA 


BEO 

$C73C 


C732 

C9 

OA 


CMP 

#$0A 

10 

C734 

90 

06 


UCC 

$C73C 


C7 36 

CA 



DEX 



C7 37 

C9 

64 


CMP 

#$64 

100 

C7 39 

90 

01 


BCC 

SC7 3C 


C73tì 

CA 



DEX 




directory 


hi-byte 
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C73C 

20 

AC 

C7 

JSR 

$C7AC 

C73F 

B1 

94 


LDA 

($94) ,Y 

C74i 

48 



PHA 


C742 

OA 



ASL 

A 

C743 

10 

05 


DPL 

$C74A 

C745 

A9 

3C 


LDA 

#$3C 

C747 

9D 

B2 

02 

STA 

$02B2,X 

C74A 

68 



PLA 


C74B 

29 

OF 


AND 

#$0F 

C74D 

A8 



TAY 


C74E 

B9 

C5 

FE 

LDA 

$FEC5,Y 

C751 

9D 

DI 

02 

STA 

$02B1,X 

C754 

CA 



DEX 


C755 

U9 

CO 

FE 

LDA 

SPECO,Y 

C758 

9D 

DI 

02 

STA 

$02B1,X 

C75H 

CA 



DEX 


C75C 

B9 

DU 

FE 

LDA 

$FEBB,Y 

C7 5F 

9D 

DI 

02 

STA 

$02B1,X 

C762 

CA 



DEX 


C763 

CA 



DEX 


C764 

DO 

05 


DCS 

$C76B 

C766 

A9 

2A 


r.DA 

0$2A 

C768 

9D 

H2 

02 

STA 

$02D2,X 

C76B 

A9 

AO 


LDA 

#$A0 

676D 

9D 

DI 

02 

STA 

S02B1,X 

C770 

CA 



DEX 


C771 

AO 

12 


LDY 

#S12 

C773 

DI 

94 


LDA 

($94),Y 

C775 

9D 

DI 

02 

STA 

$02B1,X 

C778 

CA 



DEX 


C779 

88 



DEY 


C77A 

CO 

03 


CPY 

#S03 

C77C 

BO 

F5 


RCS 

$C773 

C77E 

A9 

22 


LDA 

#$22 

C780 

9D 

B1 

02 

STA 

$0201,X 

C783 

E8 



INX 


C784 

EO 

20 


CPX 

#$20 

C786 

DO 

OD 


DCS 

$C793 

C788 

BD 

DI 

02 

LDA 

$02B1,X 

C78B 

C9 

22 


CMP 

#$22 

C70D 

FO 

04 


BEO 

$C793 

C7bK 

C9 

AO 


CMP 

#$A0 

C791 

DO 

FO 


BNE 

$C7n3 

C793 

A9 

22 


LDA 

#$22 

C795 

9D 

B1 

02 

STA 

$02B1,X 

C790 

E8 



INX 


C799 

EO 

20 


CPX 

#$20 

C89B 

BO 

OA 


DCS 

$C7A7 

C79D 

A9 

7F 


LDA 

#$7F 

C79F 

3D 

B1 

02 

AND 

S02B1,X 

C7A2 

9D 

DI 

02 

STA 

$02B1,X 

C7A5 

10 

FI 


DPL 

$C798 

C7A7 

20 

B5 

C4 

JSR 

$C4B5 

C7AA 

38 



SEC 


C7AB 

60 



RTS 



erase buffer 
filo type 

bit 7 in carry 
bit 6 not set? 

'<' for protected file 
write behind file type 

isolate bits 0-3 
as file type marker 
3rd lettor of thè file type 
in buffer 

2nd letter of file type 
in buffer 

Ist lettor of file type 
in buffer 


file not closod? 

I * I 

before file type in buffer 
pad with ’shift blank' 
in buffer 


filenamos 
write in buffer 


write before file type 


character from buffer 
• = •? 

•shift blank' at end of name 
fili through 


bit 7 

erase in thè remaining chars 
search for next directory entry 
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C7AC 

AO 

IB 


LDY 

• $1B 

C7AE 

A9 

20 


LDA 

#S20 

C7B0 

99 

BO 

02 

STA 

$02B0,Y 

C7U3 

88 



DEY 


C7B4 

DO 

FA 


BNE 

$C7B0 

C7U6 

60 



RTS 


****** 4 *********************** 

C7B7 

20 

19 

FI 

JSR 

$F119 

C7BA 

20 

DF 

FO 

JSK 

$F0DF 

C7nD 

20 

AC 

C7 

JSR 

$C7AC 

C7C0 

A9 

FF 


LDA 

(tSFF 

C7C2 

85 

6F 


STA 

S6F 

C7C4 

A6 

7F 


LDX 

$7F 

C7C6 

8E 

72 

02 

STX 

$0272 

C7C9 

A9 

00 


LDA 

#$00 

C7CB 

OD 

73 

02 

STA 

$0273 

C7CE 

A6 

F9 


LDX 

$F9 

C7D0 

BD 

EO 

FE 

LDA 

$FEE0,X 

C7D3 

85 

95 


STA 

$95 

C7[)5 

AD 

88 

FE 

LDA 

$FE88 

C7D8 

85 

94 


STA 

$94 

C70A 

AO 

16 


LDY 

#$16 

C7DC 

B1 

94 


LDA 

($94) ,Y 

C7DE 

C9 

AO 


CMP 

#SA0 

C7t;0 

DO 

OH 


HNE 

$C7ED 

C7E2 

A9 

31 


LDA 

#$31 

C7E4 

2C 



.BYTE S2C 

C7E5 

HI 

94 


LDA 

($94),Y 

C7E7 

C9 

AO 


CMP 

#$A0 

C7E9 

DO 

02 


BNE 

$C7ED 

C7EB 

A9 

20 


LDA 

#$20 

C7ED 

99 

B3 

02 

STA 

S02B3 

C7F0 

88 



DEY 


C7E1 

10 

F2 


BPL 

$C7E5 

C71’3 

A9 

12 


LDA 

#$12 

C7 E5 

8D 

HI 

02 

.STA 

$02ni 

C71'8 

A9 

22 


LDA 

#S22 

C7FA 

8D 

ri2 

02 

STA 

$02B2 

C7ED 

8D 

C3 

02 

STA 

$02C3 

C800 

A9 

20 


LDA 

#$20 

C802 

8D 

C4 

02 

STA 

$02C4 

CH05 

60 



RTS 



C806 

20 

AC 

C7 

JSR 

$C7AC 

C809 

AO 

OH 


LDY 

#$0B 

CBOll 

H9 

17 

cn 

LDA 

$CB17,Y 

OBOE 

99 

DI 

02 

STA 

$02B1,Y 

CBll 

HH 



DEY 


CHI 2 

10 

F7 


BPL 

$C00U 

C814 

4C 

4D 

BF 

JMP 

$EF4D 


erase directory buffer 

' ' blank 
write in buffer 


create header with disk name 
initialize if needed 
read disk name 
erase buffer 


drive number 

as block no. lo in buffer 

block number lo 
buffer number 

hi-byte of thè buffer address 

$90, position of disk name 
save 

pad buffer with ’shift blank' 


• 1 ' 

character from buffer 
compare with ‘shift blank' 

' ' blank 
in buffer 


'RVS ON' 
in buffer 

I *11 

write bofore 
and after disk name 
' ' blank 
behind it 


create last line 
erase buffer 
12 characters 
■blocks free.' 
write in buffer 


number of free blocks in front 
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A***************************** 

CG17 42 4C 41*' 43 4U 53 20 46 'blocks f 

celi' 52 45 45 2E *ree.* 


A*A****A***AA*A***A**A*AA***** 

C823 20 98 C3 JSR $C398 

C026 20 20 C3 JSR SC320 

C029 20 CA C3 JSR $C3CA 

C82C A9 00 LDA #$00 

CB2E 85 86 STA $86 

C830 20 9D C4 JSR $C49D 

C833 30 3D DMI $C072 

C8 35 20 U7 DD JSR $DDD7 

C838 90 33 UCC $C86D 

C83A AO 00 LDT #$00 

C83C B1 94 LDA ($94) ,Y 

C83B 29 40 AND #$40 

C840 DO 2B BNE $C86D 

C842 20 B6 C8 JSR $C0B6 

C845 AO 13 LDY #$13 

C847 B1 94 LDA ($94),V 

C849 EO OA BEO $C855 

C84B 85 80 STA $80 

C84D CO INY 

C84E Bl 94 LDA ($94) ,Y 

C850 05 81 STA $81 

C852 20 7D C8 JSR $C87D 

C855 AE 53 02 LDX $0253 

C858 A9 20 LDA #$20 

C85A 35 E7 AND $E7,X 

C85C DO OD BNE $C86B 

C85E BD 80 02 LDA $0280,X 

C861 85 80 STA $80 

C863 BD 85 02 LDA $0285,X 

C066 85 81 STA $81 

C868 20 7D C8 JSR $C07D 

C86D E6 86 INC $86 

C86D 20 8B C4 JSR $C48B 

C870 IO C3 BPL $C835 

C872 A5 86 LDA $86 

C874 85 80 STA $80 

C876 A9 01 LDA #$01 

C878 AO 00 LDY #$00 

C87A 4C A3 CI JMP $C1A3 


S comroand ’scratcli' 
asccrtain file type 
got drive number 
initializG drive if needed 

counter for erased filcs 
scardi for file in directory 
not found? 
is file open 
yos 

filo type 
scratch protect 
yes 

erase file and note in directory 

tracia no. of thè first side-sector 
none present? 
noto tracie number 

and sector number 

erase side-sector 
file number 

bit 5 set? 

yes, file not closed 
get tracie 

and sector 

erase file 

increment number of erased files 
search for next file 
if present, erase 
number of erased files 
save as 'tracie' 

1 as disk status 

0 as 'sector' 

message 'files scratched' 


********* 4 ******************* 

C07D 

20 

5F 

EF 

JSR 

$EF5F 

C880 

20 

75 

D4 

JSR 

$D475 

C883 

20 

19 

FI 

JSR 

$F119 

C886 

B5 

A7 


LDA 

$A7,X 

C888 

C9 

FF 


CMP 

#$FF 

C88A 

FO 

08 


BEO 

$C894 

C88C 

AD 

F9 

02 

LDA 

$02F9 

C88F 

09 

40 


ORA 

#$40 

C891 

8D 

F9 

02 

STA 

$02F9 


* erase file 

freo block in BAH 

get buffer number in BAH 
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ce94 

A9 

00 


LDA 

#$00 

C896 

20 

C8 

D4 

JSK 

SD4C8 

C899 

20 

56 

DI 

JSK 

$D156 

C89C 

85 

80 


STA 

$80 

C89E 

20 

56 

DI 

JSR 

$D156 

C8A1 

85 

81 


STA 

$01 

C8A3 

A5 

80 


LDA 

$80 

C8A5 

DO 

06 


BNE 

SC8AD 

C8A7 

20 

F4 

EE 

JSR 

$EEF4 

C6AA 

4C 

27 

D2 

JMP 

SD227 

COAD 

20 

5F 

EF 

JSR 

SEF5F 

COBO 

20 

4D 

D4 

JSR 

$D44D 

C8H3 

4C 

94 

C8 

JMP 

SC894 

t***************************** 

C8B6 

AO 

00 


LDy 

#$00 

C8B0 

98 



TTA 


C8B9 

91 

94 


STA 

($94) ,Y 

CBDB 

20 

5E 

DE 

JSR 

$DE5E 

C8UB 

4C 

99 

D5 

JMP 

$D599 

****************************** 

caci 

A9 

31 


LDA 

#$31 

C8C3 

4C 

CO 

CI 

JMP 

$C1C8 

****************************** 

C8C6 

A9 

4C 


LDA 

#S4C 

C8C8 

8D 

00 

06 

STA 

$0600 

C8CB 

A9 

C7 


LDA 

#$C7 

C8CD 

8D 

01 

06 

STA 

$0601 

C8D0 

A9 

FA 


LDA 

#$FA 

C8D2 

8D 

02 

06 

STA 

$0602 

C8D5 

A9 

03 


LDA 

#$03 

C8n7 

20 

D3 

U6 

JSR 

$D6n3 

CODA 

A5 

7F 


LDA 

$7F 

C8DC 

09 

EO 


ORA 

#$F,0 

C8DB 

85 

03 


STA 

$03 

COBO 

A5 

03 


LDA 

$03 

C8E2 

30 

FC 


BMI 

$CHE0 

C8E4 

C9 

02 


CMP 

#S02 

C0E6 

90 

07 


BCC 

$C8EF 

C8E8 

A9 

03 


LDA 

#$03 

CO E A 

A2 

00 


LDX 

»$00 

C8EC 

4C 

OA 

E6 

JMP 

$E60A 

C8EP 

60 



RTS 


****************************** 

C8F0 

A9 

EO 


LDA 

#$E0 

C8P2 

8D 

4F 

02 

STA 

$024F 

C8P5 

20 

DI 

FO 

JSR 

$F0D1 

C8F8 

20 

19 

FI 

JSR 

SF119 

C8FB 

A9 

FF 


LDA 

#$FF 

C8FD 

95 

A7 


STA 

$A7,X 

CHEF 

A9 

OF 


LDA 

#$0F 


buffer pointer to zero 
get track 

get sector 

track number 
not egual to zero 
write HAM 
dose channel 

free block in BAM 
read next block 
and continue 

erasc directory entry 


set file type to zero 
write block 
and check 

D-command 'backup' 

31, 'syntax error' 

format diskette 
JMP-command 


JMP StAC7 in $600 to $602 


set track and sector number 
drive number 

command code for forraatting 
transmit 

wait until formatting done 
smallar than two, then ok 


21, 'read error' 


C-command 'copy' 


get buffer number of BAH 
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C901 

8D 

56 

02 

STA 

$0256 

C904 

20 

E5 

CI 

JSR 

$C1E5 

C907 

DO 

03 


BNE 

5C90C 

C909 

4C 

CI 

C8 

JMP 

$C8C1 

C90C 

20 

Fa 

CI 

JS8 

SC1F8 

C901' 

20 

20 

C3 

JSl) 

SC320 

C912 

Al) 

81) 

02 

I.DA 

$0280 

C915 

29 

55 


AND 

#$55 

C917 

DO 

OF 


PNE 

$C9 20 

C919 

AK 

7A 

02 

LDX 

$027A 

C91C 

DD 

00 

02 

LDA 

$0200,X 

C911-' 

C9 

2A 


CMP 

#$2A 

C921 

DO 

05 


UN E 

$C928 

C923 

A9 

30 


LDA 

#$30 

C925 

4C 

C8 

CI 

JMP 

$C1C6 

C928 

AD 

an 

02 

LDA 

$028D 

C92B 

29 

D9 


AND 

#$D9 

C92D 

DO 

F4 


DNE 

$C923 

C921’ 

4C 

52 

C9 

JMP 

$C952 

C932 

A9 

00 


LDA 

#$00 

C934 

SD 

58 

02 

STA 

$0258 

C937 

8D 

OC 

02 

STA 

S028C 

093 A 

8D 

80 

02 

STA 

$0280 

C93n 

8D 

81 

02 

STA 

$0281 

C940 

A4 

E3 


LDA 

$E3 

C942 

29 

01 


AND 

#$01 

C944 

85 

7F 


STA 

$7F 

C946 

09 

01 


ORA 

#$01 

C948 

8D 

91 

02 

STA 

$0291 

C94» 

AD 

7B 

02 

LDA 

$0271) 

C94t; 

8D 

7A 

02 

STA 

$027A 

C951 

60 



RTS 


C952 

20 

4F 

C4 

JSR 

SC44F 

C955 

AD 

70 

02 

LDA 

$0278 

C958 

C9 

03 


CMP 

#$03 

C95A 

90 

45 


HCC 

$C9A1 

C95C 

A5 

E2 


LDA 

$E2 

C9 5E 

C5 

E3 


CMP 

$E3 

C960 

DO 

3F 


DNE 

$C9A1 

C9f>2 

A5 

DD 


LDA 

$DD 

C964 

C5 

DE 


CMP 

$DE 

C966 

DO 

39 


BNE 

$C9A1 

C9r<8 

A5 

08 


I.DA 

$DH 

C96A 

C5 

D9 


CMP 

$D9 

C96C 

DO 

33 


BNE 

SC9A1 

C96B 

20 

CC 

CA 

JSR 

$CACC 

C971 

A9 

01 


LDA 

#$01 

C973 

8D 

79 

02 

STA 

$0279 

C976 

20 

FA 

C9 

JSR 

SC9FA 

C979 

20 

25 

DI 

JSR 

SD125 

C97C 

FO 

04 


BEO 

SC982 

C97K 

C9 

02 


CMP 

#$02 


check input line 

31, ’syntax orror' 

check input 

test drive number 

flag for syntax check 


charactor. of thè command 

I * I 


30, 'syntax error' 

syntax flag 

30, 'syntax error' 


nunibor of drivos 

track nuraber in directory 


drive numbor 


soarch for file in directoiy 
number of filenames in comntand 
smaller than three? 
yes 

first drive number 

second drive number 

not on same drive? 

directory block of thè Ist file 

samo dir bldck as second file? 

no 

directory sector of first file 
same dir sector as second filo? 
no 

is filo present 


get data type 
rei-file? 
prg-f i le 
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C980 

DO 

05 


BNE 

$C907 

C‘J8 2 

A9 

64 


LDA 

#$64 

C984 

20 

C8 

CI 

JSR 

$C1C8 

C987 

A9 

12 


EDA 

#$12 

C989 

85 

83 


STA 

$83 

C98B 

AD 

3C 

02 

LDA 

$023C 

C98U: 

SD 

3D 

02 

STA 

$023D 

C991 

A9 

FF 


LDA 

#$FF 

C993 

8D 

3C 

02 

STA 

$023C 

C996 

20 

2A 

DA 

JSR 

$DA2A 

C999 

A2 

02 


LDX 

#$02 

C99B 

20 

B9 

C9 

JSR 

$C9D9 

C99E 

4C 

94 

CI 

JMP 

SC194 

C9A1 

20 

A7 

C9 

JSR 

$C9A7 

C9A4 

4C 

94 

CI 

JMP 

.SC194 

C9A7 

20 

E7 

CA 

JSR 

$CAE7 

C9AA 

A4 

E2 


LDA 

$E2 

C9AC 

29 

01 


AND 

#S01 

C9AB 

85 

7F 


STA 

$7F 

C9 BO 

20 

86 

D4 

JSR 

$D486 

C9B3 

20 

B4 

D6 

JSR 

SD6E4 

C9B6 

AE 

77 

02 

LDX 

$0277 

C9B9 

8 E 

79 

02 

STX 

$0279 

C9BC 

20 

FA 

C9 

JSR 

$C9FA 

C9BI-' 

A9 

11 


LDA 

#$11 

C9C1 

85 

83 


STA 

$83 

C9C3 

20 

EB 

DO 

JSR 

$D0EB 

C9C6 

20 

25 

DI 

JSR 

$D125 

C9C9 

DO 

03 


BNE 

$C9CE 

C9Cn 

20 

53 

CA 

JSR 

$CA53 

C9CE 

A9 

08 


LDA 

#$08 

C9D0 

85 

F8 


STA 

$F8 

C9D2 

4C 

DB 

C9 

JMP 

$C9D8 

C9D5 

20 

91) 

CF 

JSR 

$CF9U 

C908 

20 

35 

CA 

JSR 

$CA35 

C9DB 

A9 

80 


LDA 

«$80 

C91)D 

20 

A6 

DD 

JSR 

S DDA6 

C9E0 

EO 

F3 


BEO 

$C9D5 

C9E2 

20 

25 

DI 

JSR 

$D125 

C9E5 

FO 

03 


BEO 

$C9EA 

C9E7 

20 

9D 

CF 

JSR 

$CF9B 

C9EA 

AK 

79 

02 

LDX 

$0279 

C9ED 

E8 



INX 


C9EE 

EC 

78 

02 

CPX 

$0278 

C9F1 

90 

C6 


BCC 

$C9B9 

C9F3 

A9 

12 


LDA 

#$12 

C9E5 

85 

83 


STA 

$83 

C9E7 

4C 

02 

DB 

JMP 

$DBn2 

C9EA 

AE 

79 

02 

LDX 

$0279 

C9ED 

B5 

E2 


LDA 

SE2,X 

C9l'E 

29 

01 


AND 

#$01 


no 

64, 'file type raismatch* 
18 

secondary addcess 


prepare append 

copy file 
dono 

copy file 
dono 


drive no. of first file 

drive number 

entcr file in directory 


17 


get data type 
no rei-file? 


write byte in buffer 
and (jet byte 

test bit 7 
not set? 
check file type 
rei-file? 

(jet data byte in buffer 


18 

dose channel 


drive number 
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CACI 

85 

7F 


STA 

S7F 

CA03 

AD 

85 

EE 

EOA 

$EE85 

CA06 

85 

80 


STA 

$80 

CA08 

B5 

P8 


EOA 

SDB,X 

CADA 

85 

81 


STA 

$81 

CAOC 

20 

75 

04 

JSK 

$D475 

CAOf 

AK 

79 

02 

EDX 

$0279 

CAI 2 

115 

DD 


EDA 

$DO,X 

CA14 

20 

C8 

04 

JSR 

$D4C8 

CA17 

AE 

79 

02 

EDX 

$0279 

CAIA 

B5 

E7 


EDA 

$E7,X 

CAIC 

29 

07 


AND 

#$07 

CAIE 

81) 

4A 

02 

STA 

$024A 

CA21 

A9 

00 


EDA 

#$00 

CA23 

8D 

58 

02 

STA 

$0258 

CA26 

20 

AO 

09 

JSH 

SD9A0 

CA29 

AO 

01 


EDY 

#$01 

CA2U 

20 

25 

DI 

JSK 

$D125 

CA2h; 

FO 

01 


BEO 

SCA31 

CA30 

C8 



INy 


CA31 

98 



TVA 


CA32 

4C 

C8 

04 

JMP 

$D4C8 

CA35 

A9 

11 


EDA 

#$11 

CA37 

85 

83 


STA 

$83 

CA39 

20 

911 

03 

JSK 

$0390 

CA3C 

85 

85 


STA 

$85 

CA3 E 

Afi 

82 


EDX 

$8 2 

CA40 

U5 

F2 


EOA 

$F2,X 

CA-12 

29 

08 


AND 

#$08 

CA44 

85 

F8 


STA 

$F8 

CA<lfi 

DO 

OA 


RNE 

$CA52 

CA48 

20 

25 

DI 

JSK 

$0125 

CA4H 

PO 

05 


BEO 

$CA52 

CA4D 

A9 

80 


EDA 

#$80 

CA4F 

20 

97 

OD 

JSR 

$PD97 

CA52 

60 



RTS 


CA‘33 

20 

1)3 

01 

JSK 

$0103 

CA56 

20 

Cll 

E1 

JSR 

SElCll 

CAS'» 

A5 

06 


EDA 

$D6 

CA5H 

4H 



PIIA 


CA5C 

A5 

05 


EOA 

$D5 

CASE 

48 



PHA 


CASE 

A9 

12 


EDA 

#$12 

CAfi l 

8 5 

83 


STA 

$83 

CAf>3 

20 

07 

DI 

JSK 

$0107 

CACfi 

20 

D3 

DI 

JSK 

$0103 

CA69 

20 

CH 

E1 

JSR 

$E1CB 

CAfiC 

20 

9C 

fi2 

JSR 

SE29C 

CA(>E 

A5 

06 


I.DA 

$06 

CA71 

85 

87 


S-J-A 

$87 

CA7 3 

A5 

05 


r.,DA 

$05 

CA7S 

85 

86 


STA 

$86 

CA77 

A9 

00 


EDA 

«$00 

CA79 

8 5 

88 


S'I’A 

$88 


save 

18, directory track 
save 

directory sector 

rcad block 

pointer in block 
set buffer pointer 

filo type 
isolato 
and savo 


got paramcters for rol-file 

get file type 
rel-f i lo? 


set buffer pointer 
17 

opon channcl and get byte 

channol numbor 

isolate end marker 

not set? 

get data type 

rei-filo? 

set bit 7 


set drive numbor 


18 

opon write channol 
set drive numbor 
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CA7U 

85 

D4 


.8TA 

$D4 

CA7D 

85 

D7 


STA 

?D7 

CA7[' 

68 



PLA 


CASO 

85 

D5 


STA 

SD5 

CA82 

68 



PLA 


CA8 3 

85 

D6 


STA 

$D6 

CA85 

4C 

30 

E3 

JMP 

SB33D 

****************************** 

CAB 8 

20 

20 

C3 

JSR 

$C320 

CAB li 

A5 

E3 


LDA 

$E3 

CABD 

29 

01 


AND 

#$01 

CA8K 

85 

E3 


STA 

SE3 

CA91 

C5 

E2 


CMP 

$E2 

CAB 3 

EO 

02 


BEO 

SCA97 

CA95 

09 

80 


OKA 

#$80 

CA97 

85 

E2 


STA 

$E2 

CA99 

20 

4 E 

C4 

JSU 

SC44E 

CA9C 

20 

E7 

CA 

JSR 

$CAE7 

CA9F 

A5 

E3 


LDA 

$E3 

CAAl 

29 

01 


AND 

#S01 

CAA3 

85 

7 E 


STA 

$7E 

CAA5 

A5 

D9 


LDA 

$D9 

CAA7 

85 

81 


STA 

$81 

CAA9 

20 

57 

DE 

JSR 

$DE57 

CAAC 

20 

99 

D5 

JSR 

$D599 

CAAF 

A5 

DE 


LDA 

$DE 

CAlil 

18 



CLC 


CAB2 

69 

03 


ADC 

#$03 

CAB4 

20 

C8 

D4 

JSR 

$D4C8 

CA117 

20 

93 

DE 

JSR 

$DE93 

CAHA 

A8 



TAY 


CAHH 

AE 

7A 

02 

LDX 

S027A 

CAIlE 

A9 

10 


LDA 

#$10 

CACO 

20 

6 E 

C6 

JSR 

$C66E 

CAC3 

20 

5E 

DE 

JSR 

$DE5E 

CAC6 

20 

99 

D5 

JSR 

SD599 

CAC9 

4C 

94 

CI 

JMP 

$C194 

i,i,i,**i.*******i,i,i,***t***i, ****** 

CACC 

A5 

EO 


LDA 

$E8 

CACK 

29 

07 


AND 

#$07 

CADO 

8D 

4A 

02 

STA 

$024A 

CAD3 

AE 

78 

02 

LDX 

$0278 

CAD6 

CA 



DEX 


CAD7 

EC 

77 

02 

CPX 

$0277 

CADA 

90 

OA 


HCC 

SCAE6 

CADC 

OD 

80 

02 

LDA 

$0280,X 

CADK 

DO 

E5 


ONE 

SCAD6 

CAI51 

A9 

62 


LDA 

#$62 

CAB3 

4C 

C8 

CI 

JMP 

$cica 

CAE6 

60 



RTS 


CAE7 

20 

CC 

CA 

JSR 

$CACC 

CAEA 

8D 

80 

02 

LDA 

$0280,X 


K-comniand, 'renarne' 

get drive no. from comtnand line 


2nd drive number 

compare with Ist drive number 

sanie? 


search for file in directory 
does name ex ist? 


drive number 

soctor number 

road block from directory 

ok? 

pointer to directory entry 

pointer plus 3 to file name 
set buffer pointer 
got buffer number 


IG characters 
write name in buffer 
write block to directory 
ok? 

done, prepare disk status 

check if file present 
file type 

save 


track number 
not zero? 

62, 'file not found' 


does file exist with old ntme? 
track number of now file 
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CAED 

FO 

05 


UEQ 

SCAF4 

CAEF 

A9 

63 


LDA 

#S63 

CAPI 

4C 

C8 

CI 

JMP 

$C1C8 

CAP4 

CA 



DEX 


CAF5 

10 

F3 


HPL 

SCARA 

CAP7 

60 



RTS 



CAF8 

AD 

01 

02 

LDA 

$0201 

CAPO 

C9 

2D 


CHP 

#S2D 

CAFD 

DO 

4C 


UN E 

$cn4B 

CAFF 

AD 

03 

02 

LDA 

$0203 

C1102 

85 

6F 


STA 

$6F 

CB04 

AD 

04 

02 

LDA 

$0204 

Cb07 

85 

70 


STA 

$70 

CB09 

AO 

00 


LDY 

KSOO 

CUOI» 

AD 

02 

02 

LDA 

$0202 

CHOE 

C9 

52 


CMP 

«$52 

culo 

FO 

OE 


UKO 

$CU20 

CU12 

20 

58 

F2 

JSK 

$F258 

CUI 5 

C9 

57 


CMP 

#$57 

CUI? 

FO 

37 


DEQ 

$CB50 

CUI 9 

C9 

45 


CMP 

#■$45 

CHIP 

DO 

2E 


UNE 

$CU4B 

culo 

6C 

6F 

00 

JMP 

(S006F) 


****************************** 


CU20 

B1 

6F 


LDA 

($6F),Y 

CU22 

85 

85 


STA 

$85 

CU24 

AD 

74 

02 

LDA 

$0274 

CU27 

C9 

06 


CHP 

#$06 

CB29 

90 

lA 


BCC 

scn45 

CU2B 

AE 

05 

02 

LDX 

$0205 

CU2E 

CA 



DEX 


CB2F 

FO 

14 


BEO 

$CB45 

CU31 

8A 



TXA 


CB32 

18 



CLC 


CB33 

65 

6F 


ADC 

$6F 

CU35 

E6 

6F 


INC 

$6F 

CU37 

8D 

49 

02 

STA 

$0249 

CB3A 

A5 

6F 


LDA 

$6F 

CB3C 

85 

A5 


STA 

$A5 

CB3E 

A5 

70 


LDA 

$70 

CU40 

85 

A6 


STA 

$A6 

CU42 

4C 

43 

D4 

JMP 

$D443 

CU46 

20 

KB 

DO 

JSR 

SDORI» 

CU48 

4C 

3A 

D4 

JMP 

$D43A 

CU4D 

A9 

31 


LDA 

#$31 

CU4D 

4C 

C8 

CI 

JMP 

$C1C8 


****************************** 

CU50 U9 06 02 LDA $0206,V 
COSO 91 6F SUA (S6l-'),Y 


file erased? 

63, 'filo exists' 


M-command, 'memory' 

2nd charactcr from buffer 

* _ * 


address in $6lVS70 


3rd character from buffer 

•R' 

to memory road 
{RTS) 

' W 

to memory writo 

•E' 

memory-oxecute 

M-R, 'Memory-Read* 
read byte 

length of command line 

less than 6? 

yes 

numbcr 

only one byte? 
number of bytes 

plus start address 

end pointer 

buffer pointer for orror mtssage 
set to start address for 'M-R' 

byte out 

open read channcl 
byte out 


31, 'syntax error' 

H-W, 'memory-write' 
road character 
and save 
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CB55 

C8 



IN? 


Cb56 

CC 

05 

02 

CPV 

$0205 

C1J59 

90 

F5 


BCC 

$CB50 

costi 

60 



RTS 


.**.«*********************•*** 

CI15C 

AC 

01 

02 

LDY 

$0201 

CllBF 

CO 

30 


CPY 

#$30 

CB61 

DO 

09 


BNE 

$CD6C 

CB6 3 

A9 

EA 


LDA 

#$EA 

CB65 

85 

6B 


STA 

$6B 

CB67 

A^ 

FF 


EDA 

#$FF 

CH69 

85 

6C 


STA 

$6C 

CBOB 

60 



BTS 


CB6C 

20 

72 

CB 

JSU 

$CB72 

CB6F 

4C 

94 

CI 

JMP 

$C194 

CH72 

88 



DEY 


CB73 

98 



TYA 


CB74 

29 

OF 


AND 

#$0F 

CB76 

OA 



ASL 

A 

CD77 

AO 



TAY 


CB78 

B1 

6B 


LDA 

($60),Y 

CB7A 

85 

75 


STA 

$75 

C07C 

C8 



INY 


CM7D 

ni 

6B 


LDA 

($6D),Y 

CB7F 

85 

76 


STA 

$76 

enei 

6C 

75 

00 

JMP 

($0075) 

****************************** 

CU84 

AD 

8E 

02 

LDA 

$028E 

CB87 

85 

7F 


STA 

$7P 

CB89 

A5 

83 


LDA 

$83 

CBBH 

48 



PHA 


CB8C 

20 

3D 

C6 

JSR 

$C63D 

CB8F 

68 



PLA 


CB90 

85 

83 


STA 

$83 

CB92 

AE 

74 

02 

LDX 

$0274 

CB95 

CA 



DEX 


CB96 

DO 

OD 


BNE 

$CBA5 

CB98 

A9 

01 


LDA 

#$01 

CU9A 

20 

E2 

DI 

JSR 

$D1E2 

CB9D 

4C 

FI 

CB 

JMP 

$CBF1 

CBAO 

A9 

70 


I,DA 

#$70 

CBA2 

4C 

C8 

CI 

JMP 

$C1C8 

CUA5 

AO 

01 


LDY 

#$01 

CBA7 

20 

7C 

CC 

JSR 

$CC7C 

CBAA 

AE 

85 

02 

LDX 

$0285 

CBAD 

EO 

05 


CPX 

#S05 

CllAF 

HO 

BF 


BCS 

$CBA0 

CUBI 

A9 

00 


LDA 

#$00 

CBB3 

85 

6F 


STA 

S6F 

CBB5 

85 

70 


STA 

$70 


number of characters 
all characters? 


U-command, 'user' 
seconcl char 
' 0 ' 
no 

ptr to table of user-addrossos 
SFFEA 


dono, prepare error roessage 


number 
times 2 

as pointer in table 
addrcss at $75/$76 


exccute function 

open direct accese channel, 't 
last drive number 
drive number 
channel number 

check drive and initialize 


length of filoname 

grcater than one? 

layout buffer and channel 
set flags, done 


70, 'no channel' 

get buffer number 
buffer number 
bigger than 5? 

70, 'no channel' 
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CBB7 

38 



SEC 



CBB8 

26 

6F 


noL 

S6F 


CBBA 

26 

70 


ROL 

$70 


enne 

CA 



DEX 



CBBD 

IO 

F9 


BPL 

$CBB8 


CBBF 

A5 

6F 


LDA 

$6F 


CBCl 

2D 

4F 

02 

AND 

5024F 


CBC4 

DO 

DA 


BNE 

SCBAO 


CBC6 

A5 

70 


LDA 

$70 


CBC8 

2D 

50 

02 

AND 

$0250 


CBCB 

DO 

D3 


BNE 

$cnA0 


CBCD 

A5 

6F 


LDA 

$6F 


CBCF 

OD 

4F 

02 

ORA 

$024F 


CBD2 

BD 

4F 

02 

STA 

S024F 


CBD5 

A5 

70 


LDA 

$70 


CBD7 

OD 

50.02 

ORA 

$0250 


e BOA 

8D 

50 

02 

STA 

$0250 


CBDD 

A9 

00 


LDA 

#$00 


CBDF 

20 

E2 

DI 

JSR 

$D1E2 

search channel 

CBE2 

A6 

82 


LDX 

$82 

channol number 

CIUM 

AD 

85 

02 

LDA 

$0285 

buffer number 

CB137 

95 

A7 


STA 

$A7,X 


CBE9 

AA 



TAX 



CBEA 

A5 

7F 


LDA 

$7F 

drive number 

CBEC 

95 

00 


STA 

$00,X 


CBEE 

9D 

5B 

02 

STA 

$025B,X 


CBFl 

A6 

83 


LUX 

$83 

sccondary addrcss 

CBF3 

BD 

2B 

02 

LDA 

S022B,X 


CBF6 

09 

40 


ORA 

#$40 

set READ and URITE flags 

CBF8 

9D 

2B 

02 

STA 

$02211,X 


CBFB 

A4 

82 


LDY 

$02 

channol number 

CBFD 

A9 

FF 


LDA 

#$FF 


CBFF 

99 

44 

02 

STA 

$0244,Y 

end pointer 

eco 2 

A9 

89 


LDA 

#$89 


CC04 

99 

F2 

00 

STA 

$00F2,Y 

set READ and URITE flags 

CC07 

B9 

A7 

00 

LDA 

$00A7,Y 

buffer number 

CCOA 

99 

3E 

02 

STA 

$023E,Y 


CCOD 

OA 



ASL 

A 

times 2 

eco E 

AA 



TAX 



CCOF 

A9 

01 


LDA 

#$01 


celi 

95 

99 


STA 

$99,X 

buffer pointer to one 

CC13 

A9 

OE 


LDA 

#$0E 

CC15 

99 

EC 

00 

STA 

$00F.C,Y 

flag for direct access 

CClfl 

4C 

94 

CI 

JMP 

$C194 

done 


**ft****************4*********<i 

B-command, 

'Block ' 

ccin 

AO 

00 


LDY #$00 



CCID 

AO 

00 


LDX #$00 



CCIF 

A9 

2D 


LDA «$2D 



CC21 

20 

68 

C2 

JSR $C268 

search for 

minus sign 

CC24 

DO 

OA 


BNE $CC30 

found? 


CC26 

A9 

31 


LDA #$31 



CC2B 

4C 

C8 

CI 

JMP $C1C8 

31, ’syntax 

error' 
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CC2B 

A9 

30 


LDA 

#S30 

CC2D 

4C 

C8 

CI 

JMP 

$C1C8 

CC30 

8A 



TXA 


CC31 

DO 

F8 


DNB 

$CC2B 

CC33 

A2 

05 


LDX 

#$05 

CC35 

B9 

00 

02 

LDA 

$0200,X 

CC38 

DD 

5D 

CC 

CMP 

$CC5D,X 

CC3U 

FO 

05 


BEO 

$CC42 

CC3D 

CA 



DKX 


CC3E 

10 

'F8 


BPL 

$CC38 

CC40 

30 

E4 


BMI 

$CC26 

CC4 2 

8A 



TXA 


CC4 3 

09 

80 


ORA 

#$80 

CC45 

8D 

2A 

02 

STA 

$022A 

CC48 

20 

6F 

CC 

JSR 

$CC6F 

cc 4 n 

AD 

2A 

02 

LDA 

$022A 

CC4E 

OA 



ASL 

A 

CC4F 

AA 



TAX 


ceso 

BD 

64 

CC 

LDA 

$CC64,X 

CC53 

85 

70 


STA 

$70 

CC55 

BD 

63 

CC 

LDA 

$CC63,X 

CC5B 

85 

6F 


STA 

$6F 

CC5A 

6C 

6F 

00 

JMP 

($006F) 

*****************************1 

CC5D 

41 

46 

52 

57 45 

50 

*****************************1 

CC63 

03 

CD 




CC65 

F5 

CC 




CC67 

56 

CD 




CC69 

73 

CD 




CC6B 

A3 

CD 




CC6D 

BD 

CD 




*****************************’ 

CC6F 

AO 

00 


LDX 

#$00 

CC71 

A2 

00 


LDX 

«$00 

CC73 

A9 

3A 


LDA 

#$3A 

CC75 

20 

68 

C2 

JSR 

$C268 

CC78 

DO 

02 


BNE 

$CC7C 

CC7A 

AO 

03 


LDX 

#$03 

CC7C 

D9 

00 

02 

LDA 

$0200,X 

CC7F 

C9 

20 


CMP 

#$20 

CC81 

FO 

08 


BEO 

$CC8B 

CC83 

C9 

ID 


CMP 

«$1D 

CC85 

FO 

04 


BEO 

$CC8D 

CCS 7 

C9 

2C 


CMP 

»$2C 

ccag 

DO 

07 


BNE 

$CC92 

CC8B 

CO 



INX 


CC8C 

CC 

74 

02 

CPX 

$0274 

CC8F 

90 

EB 


BCC 

$CC7C 

CC91 

60 



RTS 



30, 'syntax orror' 


comma, then error 

char from buffer 
comparo with 'AFRWEP' 
found? 

compare with all charactcrs 
not found, error 

command number, set bit 7 

get parameters 

number times 2 
as index 

address of command hi 
address lo 
jump to command 

names of thè various block cmds 
•AFRWEP* 

addresses of block commands 

SCD03, B-A 

$CCF5, B-F 

$CD56, B-R 

$CD73, B-W 

$CDA3, B-E 

$CDBD, U-P 

get parameters for block commands 


• • • 

test line to colon 
found? 

no, begin at 4th character 
search for separating char 
' ' blank 

cursor right 

' , * comma 


line end? 
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CC92 

20 

Al 

CC 

JSR 

$CCA1 

CC95 

BE 

77 

02 

INC 

$0277 

CC98 

AC 

79 

02 

LDY 

$0279 

CC9B 

EO 

04 


CPX 

#S04 

CC9D 

90 

EC 


BCC 

$CC8D 

CC9F 

BO 

8A 


BCS 

$CC2B 

CCAl 

A9 

00 


EDA 

«$00 

CCA3 

85 

6F 


STA 

$6F 

CCA5 

85 

70 


STA 

$70 

CCA7 

85 

72 


STA 

$72 

CCA9 

A2 

FF 


LDX 

#$FF 

CCAB 

B9 

00 

02 

LDA 

$0200,Y 

CCAE 

C9 

40 


CMP 

#$40 

CCBO 

BO 

18 


BCS 

$CCCA 

ccn 2 

C9 

30 


CMP 

#$30 

CCB4 

90 

14 


BCC 

$CCCA 

CCD6 

29 

OF 


AND 

#S0F 

CCB8 

48 



PHA 


CCB9 

A5 

70 


LDA 

$70 

CCBB 

85 

71 


STA 

.$71 

CCBD 

A4 

6F 


LDA 

$6F 

CCBF 

85 

70 


STA 

$70 

CCCl 

68 



PLA 


CCC2 

85 

6F 


STA 

$6F 

CCC4 

C8 



INy 


CCC5 

CC 

74 

02 

CPY 

$0274 

CCC7 

90 

E1 


BCC 

$CCAB 

CCCA 

8C 

79 

02 

STY 

$0279 

CCCD 

18 



CLC 


CCCE 

A9 

00 


LDA 

#$00 

CCDO 

EB 



INX 


CCDl 

EO 

03 


CPX 

#$03 

CCD3 

BO 

OF 


BCS 

$CCE4 

CCD5 

B4 

6F 


LDY 

$6F,X 

CCD7 

88 



DEY 


CCD8 

30 

F6 


BMI 

$CCD0 

CCDA 

7D 

F2 

CC 

ADC 

$CCF2,X 

CCDD 

90 

F8 


BCC 

$CCD7 

CCDF 

18 



CLC 


CCEO 

E6 

72 


INC 

$72 

CCE2 

DO 

F3 


BNE 

$CCD7 

CCE4 

48 



PHA 


CCE5 

AE 

77 

02 

LDX 

$0277 

CCE8 

A5 

72 


LDA 

$72 

CCEA 

9D 

80 

02 

STA 

$0280,X 

CCBD 

68 



PLA 


CCEE 

9D 

85 

02 

STA 

$0205,X 

CCFl 

60 



RTS 



preserve next parameter 
increment parameter counter 

compare with maximum number 

30, 'syntax error' 


erase Storage area for decimai tis 


get characters from input buffer 

no digits? 

’O' 

no digits? 

convert ASCII digits to hex 
and save 

move digits one further 


note read number 

increment pointer in input buffer 
line end reached 
no 

savo pointer 


convert hex digits to one byte 


add decimai value 


counter for parameters 

hi-byte 

lo-byto 


****************************** decimai values 
CCF2 01 OA 64 1, 10, 100 

****************************** p_p command, 'Block-Free' 

CCF5 20 F5 CD JSR $CDF5 get track, sector and drive no. 

CCFB 20 5P EF JSR $EF5F free block 
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CCFB 

4C 

94 

CI 

JMP 

$C194 

****************************** 

CCFE 

A9 

01 


LDA 

#$01 

CDOO 

8D 

F9 

02 

STA 

$02F9 

****************************** 

CD03 

20 

F5 

CD 

JSR 

SCDF5 

CD06 

A5 

81 


LDA 

$81 

CD08 

48 



PHA 


CD09 

20 

FA 

FI 

JSR 

SFIFA 

CDOC 

FO 

OB 


BEO 

$CD19 

CDOE 

68 



PLA 


CDOF 

C5 

81 


CHP 

$81 

CDll 

DO 

19 


BNE 

$CD2C 

CD13 

20 

90 

EP 

JSR 

SEF90 

CD16 

4C 

94 

CI 

JMP 

$C194 

CD19 

68 



PLA 


CDIA 

A9 

00 


LDA 

#$00 

CDIC 

05 

81 


STA 

$81 

CDIE 

Ee 

80 


INC 

$00 

CD20 

A5 

80 


LDA 

$80 

CD22 

CD 

D7 

FE 

CMP 

$FED7 

CD25 

DO 

OA 


BCS 

$CD31 

CD27 

20 

FA 

FI 

JSR 

SFIFA 

CD2A 

FO 

EE 


BEO 

SCDIA 

CD2C 

A9 

65 


LDA 

#$65 

CD2E 

20 

45 

E6 

JSR 

$E645 

CD31 

A9 

65 


LDA 

#$65 

CD33 

20 

C8 

CI 

JSR 

SCICB 

****************************** 

CD36 

20 

F2 

CD 

JSR 

$CDF2 

CD39 

4C 

60 

D4 

JMP 

$D460 


CD3C 20 2F DI JSR $D12F 

CD3F Al 99 LDA (S99,X) 

CD41 60 RTS 


****************************** 


CD42 

20 

36 

CD 

JSR 

$CD36 

CD45 

A9 

00 


LDA 

#$00 

CD47 

20 

C8 

D4 

JSR 

$D4C8 

CD4A 

20 

3C 

CD 

JSR 

$CD3C 

CD4D 

99 

44 

02 

STA 

$0244,Y 

CD50 

A9 

89 


LDA 

$89 

CD52 

99 

F2 

00 

STA 

$00F2,Y 

CD55 

60 



RTS 


*****************************^ 

CD56 

20 

42 

CD 

JSR 

$CD42 

CD59 

20 

EC 

D3 

JSR 

$D3EC 

CD5C 

4C 

94 

CI 

JMP 

SC194 


done, prepare error raessage 


D-A command, 'Block-Allocate' 
get track, sector and drive' no. 
sector 
save 

tind block in BAH 
block allocatcd? 
desired sector 
= next free sector? 
no 

allocate block in BAH 
dono 


sector 0 
next track 
track number 

36, last track number + 1 
>=, then 'no block' 
find free block in next track 
not found, check next track 

65, 'no block' next Eroe block 

65,'no block' no more free blocks 


open channel, set parameters 
read block from disk 

get byte from buffer 
set pointer to buffer 
get byte 


read block from disk 
open channel, read block 

set buffer pointer to zero 
get a byte from tha buffer 

set read and write flag 


B-R command, 'Block-Read' 
read block from disk 
prepare byte from buffer 
preparo error messago 
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****************************** 


COSE 

20 

6F 

CC 

JSR 

SCC6F 

CD62. 

20 

42 

CD 

JSR 

$CD42 

CD65 

B9 

44 

02 

LDA 

$0244,Y 

CD60 

99 

3E 

02 

STA 

$023E,Y 

CD6B 

A9 

Ff 


LDA 

#$FF 

CD6D 

99 

44 

02 

STA 

$0244,Y 

CD70 

4C 

94 

CI 

JMP 

$C194 

***É**«********************** 

CD73 

20 

F2 

CD 

JSR 

$CDF2 

CD76 

20 

ES 

D4 

JSR 

$D4E8 

CD79 

A8 



TAY 


CI17A 

88 



DBY 


CD7B 

C9 

02 


CMP 

#$02 

CD7D 

BO 

02 


BCS 

$CD81 

CD7E 

AO 

01 


LDY 

#S01 

COBI 

A9 

00 


LDA 

#$00 

CDfl3 

20 

C8 

D4 

JSR 

$D4C8 

CD86 

98 



TVA 


CD87 

20 

FI 

CF 

JSR 

$CFF1 

CD8A 

8A 



TXA 


CD8B 

48 



PHA 


CD8C 

20 

64 

D4 

JSR 

$D464 

CD8F 

68 



PLA 


Cl)90 

AA 



TAX 


CD91 

20 

EE 

D3 

JSR 

$D3EE 

CD94 

4C 

94 

CI 

JMP 

$C194 




CD97 

20 

6F 

CC 

JSR 

$CC6F 

CD9A 

20 

F2 

CD 

JSR 

$CDF2 

CD9D 

20 

64 

D4 

JSR 

$D464 

CDAO 

4C 

94 

CI 

JMP 

$C194 


CI)A3 

20 

58 

F2 

JSR 

SF258 

CDA6 

20 

36 

CD 

JSR 

$CD36 

CI)A9 

A9 

00 


LDA 

#$00 

CDAB 

85 

6F 


STA 

$6F 

CDAD 

A6 

F9 


LDX 

$F9 

CDAF 

BD 

EO 

FE 

LDA 

$ff;eo,x 

CDB2 

85 

70 


STA 

$70 

CDB4 

20 

BA 

CD 

JSR 

$CDBA 

CDB7 

4C 

94 

CI 

JMP 

$C194 

CDBA 

6C 

6F 

00 

JMP 

($006F) 

***************************** 

CDBD 

20 

D2 

CD* 

JSR 

$CDD2 

CDCO 

A5 

F9 


LDA 

$F9 

CDC2 

OA 



ASL 

A 

CDC3 

AA 



TAX 


CDC4 

AD 

86 

02 

LDA 

$0286 

CDC7 

95 

99 


STA 

$99,X 


Ul comraand, sub. for ’nlock-Read' 
get parameters of thè comnoand 
read block Erotn disk 
end pointer 
save as data byte 

end pointer to St’F 

dono, prepare error message 

B-W command, 'Block-Write' 

open channcl 

set buffer pointer 

buffer pointer lo less than 2? 
no 


buffer pointer to zero 
write byte in buffer 


write block to disk 


get byte from buffer 
dona, error message 

U2, sub for 'Block-Write' 

get command parameters 

open channcl 

and write block to disk 

done 

'B-E' command, 'Block-Execute' 
(RTS) 

open channcl and read block 

address low 
buffer number 
buffer address high 

cxecutc routine 
dono 

jump to routine 

*B-P* command, 'Block-Pointer' 
open channel, get buffer number 
buffer number 
* 2 

as index 

pointer value 

save as buffer pointer 
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CDC9 

20 

2F 

DI 

JSR 

$D12F 

CDCC 

20 

EE 

D3 

JSR 

SD3EE 

CDCF 

4C 

94 

CI 

JMP 

SC194 

******************«k**********i 

CDD2 

A6 

D3 


LDX 

$D3 

CDD4 

E6 

D3 


INC 

$D3 

CDD6 

BD 

85 

02 

LDA 

S0285,X 

CDD9 

A8 



TAY 


CODA 

88 



DEY 


CDDB 

88 



DEY 


CDDC 

CO 

OC 


CPY 

#$0C 

CODE 

90 

05 


BCC 

$CDE5 

COBO 

A9 

70 


LDA 

#S70 

CDE2 

4C 

C8 

CI 

JMP 

$C1C8 

CDE5 

85 

83 

■ 

STA 

$83 

CDE7 

20 

EB 

DO 

JSR 

$D0EB 

CDEA 

BO 

P4 


BCS 

SCDEO 

CDEC 

20 

93 

DF 

JSR 

SDF93 

CDEF 

85 

F9 


STA 

$F9 

CDFl 

60 



RTS 



****************************** 


CDF2 

20 

D2 

CD 

JSR 

$CDD2 

CDF5 

A6 

D3 


LDX 

$^3 

CDF7 

BD 

85 

02 

LDA 

$0285,X 

CDFA 

29 

01 


AND 

#$01 

CDFC 

85 

7F 


STA 

$7F 

CDFE 

BD 

87 

02 

LDA 

$0287,X 

CEOl 

85 

81 


STA 

$81 

CE03 

BD 

86 

02 

LDA 

$0286,X 

CE06 

85 

00 


STA 

$80 

CE08 

20 

5F 

D5 

JSR 

$D55F 

CEOB 

4C 

00 

CI 

JMP 

$C100 

*****************************1 

CEO E 

20 

2C 

CE 

JSR 

$CE2C 

CEll 

20 

6E 

CE 

JSR 

$CE6E 

CE14 

A5 

90 


LDA 

$90 

CE16 

85 

D7 


STA 

$D7 

CK18 

20 

71 

CE 

JSR 

$CE71 

CElB 

E6 

D7 


INC 

$D7 

CEID 

E6 

D7 


INC 

$D7 

CEIF 

A5 

8H 


LDA 

$8B 

CE21 

85 

D5 


STA 

$D5 

CE23 

A5 

90 


LDA 

$90 

CE25 

OA 



ASL 

A 

CB26 

18 



CLC 


CE27 

69 

10 


ADC 

#$10 

CE29 

85 

D6 


STA 

$D6 

CE2B 

60 



RTS 


***************************** 

CE2C 

20 

D9 

CE 

JSR 

$CED9 


prepare a byte in buffer 

for output 

dono 

open channcl 


buffer number 


buffer number smallcr than 14? 
yes 

70, 'no channcl' 

secondary address 
open channol 

already allocated,70 ‘no channel' 
buffer number 
set 


check buffer no. and open channel 
channel number 
buffer address 

drive number 

seetor 

track 

track and seetor ok? 
turn LilD on 

set pointer for rei-file 
record number * record length 
divide by 254 

remainder » pointer in data block 
data pointer 

divide by 120 = side-sector il 

data ptr + 2 (track/sector ptrl) 
rosult of division 
ccjuals side-sector number 
remainder 
timoE 2 

plus 16 

=ptr in side-sector to data block 


orase work Storage 
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CE2F 

85 

92 


STA 

$92 

.CE31 

A6 

82 


LDX 

$82 

CE33 

B5 

B5 


LDA 

$D5,X 

CE35 

85 

90 


STA 

$90 

CE37 

D5 

BB 


LDA 

$BB,X 

CE39 

85 

91 


STA 

$91 

CE3B 

DO 

04 


BNE 

$CE41 

CE3D 

A5 

90 


LDA 

$90 

CE3F 

FO 

OB 


BEO 

$CE4C 

CE41 

A5 

90 


LDA 

$90 

CE4 3 

38 



SEC 


CE44 

E9 

01 


SBC 

*$01 

CE46 

85 

90 


STA 

$90 

CE48 

BO 

02 


ncs 

SCE4C 

CE4A 

C6 

91 


DEC 

$91 

CE4C 

B5 

C7 


t.DA 

$C7,X 

CE4E 

85 

6F 


STA 

S6F 

CE50 

46 

6F 


LSR 

$6F 

CE52 

90 

03 


BCC 

$CE57 

CE54 

20 

ED 

CE 

JSR 

SCEED 

CE57 

20 

E5 

CE 

JSR 

SCBE5 

CE5A 

A5 

6F 


LDA 

$6F 

CE5C 

DO 

F2 


BNE 

$CE50 

CE5E 

A5 

D4 


LDA 

$D4 

CE60 

18 



CLC 


CE61 

65 

8B 


ASC 

$8B 

CE63 

85 

8n 


STA 

$8B 

CE65 

90 

06 


BCC 

$CE6D 

CE67 

E6 

8C 


INC 

$8C 

CE69 

DO 

02 


BNE 

$DE6D 

CE6B 

E6 

8D 


INC 

$80 

CE6D 

60 



RTS 


***************************1 

CE6E 

A9 

FE 


LDA 

#$FE 

CE70 

2C 



.BYTE S2C 


****************************** 


CE71 

A9 

78 

LDA 

#$78 

CE73 

85 

6F 

STA 

S6F 

CE75 

A2 

03 

LDX 

#$03 

CE77 

B5 

8F 

LDA 

$8F,X 

CE79 

48 


PHA 


CE7A 

B5 

OA 

LDA 

$8A,X 

CE7C 

95 

8F 

STA 

S8F,X 

CE7 E 

68 


PLA 


CE7F 

95 

8A 

STA 

S8A,X 

CESI 

CA 


DEX 


CE82 

DO 

F3 

BNE 

SCE77 

CE84 

20 

D9 CE 

JSR 

$CED9 

CE87 

A2 

00 

LDX 

*$00 

CE89 

B5 

90 

LDA 

$90,X 

CE8B 

95 

8F 

STA 

$8F,X 

CE8D 

E8 


INX 


CE8E 

EO 

04 

CPX 

#$04 


channel nuinber 
record number lo 

record number hi 

record number not zero? 


then subtract one 


record Icngth 


record number * record length 
shift register left 


result in $8B/$8C/$8D 


divide by 254, calculatc block # 
254 

divide by 120, calculate 
side-sector number 
divisor 


craso work Storage 
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CE90 

90 

E7 


BCC 

SCE89 

CE92 

A9 

00 


LOA 

»SOO 

CE94 

85 

92 


STA 

$92 

CE96 

24 

6F 


BIT 

S6F 

CE98 

30 

09 


BMI 

$CEA3 

CE9A 

06 

8F 


ASL 

$8F 

CE9C 

08 



PIIP 


CE9D 

46 

8F 


LSK 

</> 

CO 

CE9E 

28 



PLP 


CEAO 

20 

E6 

CE 

JSR 

$CEE6 

CEA3 

20 

ED 

CE 

JSR 

SCEED 

CEA6 

20 

E5 

CE 

JSR 

$CEE5 

CEA9 

24 

6F 


BIT 

$6F 

CEAU 

30 

03 


BMI 

$CEB0 

CEAD 

20 

E2 

CE 

JSR 

$CEE2 

CEDO 

A5 

8F 


LDA 

$aF 

CEH2 

18 



CLC 


CEB3 

65 

90 


ADC 

$90 

CEU5 

85 

90 


STA 

$90 

CED7 

90 

06 


BCC 

$CEBF 

CEH9 

E6 

91 


INC 

$91 

CEDB 

DO 

02 


BNE 

$CEBF 

CEBD 

E6 

92 


INC 

$92 

CEDE 

A5 

92 


LDA 

$92 

CECl 

05 

91 


ORA 

$91 

CEC3 

DO 

C2 


BNE 

SCE87 

CEC5 

A5 

90 


LDA 

$90 

CEC7 

38 



SEC 


CEC8 

E5 

6F 


SBC 

$6F 

CECA 

90 

OC 


BCC 

$CED8 

CECC 

E6 

8B 


INC 

$8B 

CECE 

DO 

06 


BNE 

$CED6 

CEDO 

E6 

8C 


INC 

$8C 

CED2 

DO 

02 


BNE 

$CED6 

CED4 

85 

90 


STA 

$90 

CED8 

60 



RTS 


*****4************************ 

CED9 

A9 

00 


LDA 

#$00 

CEDB 

85 

8B 


STA 

$8B 

CEDD 

85 

8C 


STA 

$8C 

CEDE 

85 

8D 


STA 

$8D 

CEEl 

60 



RTS 


****************************** 

CEE2 

20 

E5 

CE 

JSR 

$CEE5 

****************************** 

CEE5 

18 



CLC 


CEE6 

29 

90 


ROL 

$90 

CEE8 

26 

91 


ROL 

$91 

CEEA 

26 

92 


ROL 

$92 

CEEC 

60 



RTS 



shift reglstcr 1 left 

add registor 0 to register 1 

shift register 1 loft 

left-shift register 1 twice 


quotient in $8IJ/Sac/$8D 

remainder in S90 
erase work Storage 

left-shift 3-byte register twice 
left-shift 3-byte register once 
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CEED 

18 



CLC 


CEEE 

A2 

FD 


LDX (t$FD 


CEFO 

B5 

8E 


EDA SaE,X 

rcgistGr S90/$91/S92 

CEF2 

75 

93 


ADC $93,X 

add to register $8B/S8C/S8D 

CEF4 

95 

8 E 


STA $0E,X 


CEF6 

En 



INX 


CEF7 

DO 

F7 


BNE SCEFO 


CEF9 

60 



RTS 


CE FA 

A2 

00 


LDX #S00 


CEFC 

8A 



TXA 


CEFO 

95 

FA 


STA SFA,X 


CEFF 

E8 



INX 


CFOO 

EO 

04 


CPX #$04 


CF02 

DO 

F8 


BNE $CEFC 


CF04 

A9 

06 


LDA #S06 


CF06 

95 

FA 


STA $FA,X 


CFOB 

60 



1»TS 


CF09 

AO 

04 


LDY #S04 


CFOU 

A6 

82 


LDX $82 

channcl number 

CFOD 

D9 

FA 

00 

LDA SOOFA.y 


CFIO 

96 

FA 


STX $FA,Y 


CF12 

C5 

82 


CMP $82 

channel number 

CF14 

FO 

07 


BEO $CF1D 


CF16 

88 



DEY 


CF17 

30 

E1 


BUI SCEFA 


CF19 

AA 



TAX 


CFIA 

4C 

OD 

CF 

JHP SCFOD 


CFID 

60 



KTS 


CFIE 

20 

09 

CF 

JSR $CF09 


CF21 

20 

B7 

DF 

JSR SDFB7 


CF24 

DO 

46 


BNE $CF6C 


CF26 

20 

D3 

DI 

JSR $D1U3 

set drive number 

CF29 

20 

8E 

D2 

JSR $D28E 


CF2C 

30 

48 


BMI $CF76 


CF2E 

20 

C2 

DF 

JSR $DFC2 


CF31 

A5 

80 


LDA $80 

track 

CF33 

48 



PDA 


CF34 

A5 

81 


LDA $81 

sector 

CF36 

48 



PDA 


CF37 

A9 

01 


LDA #S01 


CF39 

20 

F6 

D4 

JSR SD4F6 

get byte 1 from bu££er 

CF3C 

85 

81 


STA $81 

sector 

CF3E 

A9 

00 


LDA #$00 


CF40 

20 

F6 

D4 

JSR SD4F6 

get byte 0 £rom bu££er 

CF4 3 

85 

80 


STA $80 

track 

CF45 

FO 

IF 


BEO SCF66 


CF47 

20 

25 

DI 

JSR SD125 

check £ile type 

CF4A 

FO 

OD 


BEO $CF57 

rel-£ile? 

CF4C 

20 

AB 

DD 

JSR SDDAB 


CF4F 

DO 

06 


BNE SCF57 


CF51 

20 

8C 

CF 

JSR $CF8C 


CF54 

4C 

5D 

CF 

JMP SCF5D 
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CF57 

20 

8C 

CF 

JSK 

$CF8C 


Ct'SA 

20 

57 

DE 

JSR 

SDE57 


CF5D 

68 



• PLA 



CK5E 

05 

81 


STA 

SOI 

get sector 

CF60 

68 



PLA 



CF61 

85 

80 


STA 

$80 

and track number 

CF63 

4C 

6P 

CF 

JMP 

$CF6F 


CF66 

68 



PLA 



CF67 

85 

81 


STA 

$81 

get back sector 

CF69 

68 



PLA 



CF6A 

85 

80 


STA 

$80 

and track number 

CF6C 

20 

8C 

CF 

JSP 

$CF8C 


CF6F 

20 

93 

DF 

JSR 

$DF93 


CF72 

AA 



TAX 



CF73 

4C 

99 

D5 

JMP 

$D599 

and verify 

CF76 

A9 

70 


LDA 

#$70 


CF78 

4C 

C8 

CI 

JMP 

$C1C8 

70, 'no channel’ 

CF7B 

20 

09 

CF 

JSR 

$CF09 


CF7E 

20 

B7 

DF 

JSR 

SDFD7 


CF81 

DO 

08 


BNE 

SCFOB 


CF83 

20 

8E 

D2 

JSR 

$D28E 


CF86 

30 

EE 


BMI 

$CF76 


CF88 

20 

C2 

DF 

JSR 

$DFC2 


CF8B 

60 



RTS 



********** iMr* ***************** 

change buffer 

CF8C 

A6 

/B2 


LDX 

$02 

channel number 

CF8E 

B5 

A7 


LDA 

$A7,X 


CF90 

49 

00 


EOR 

#$80 


CF92 

95 

A7 


STA 

$A7,X 


CF94 

B5 

AE 


LDA 

$AE,X 

rotate bit 7 in table 

CF96 

49 

80 


EOR 

«$80 


CF98 

95 

AE 


STA 

$AE,X 


CF9A 

60 



RTS 



****************************** 

write data byte in buffer 

CF9B 

A2 

12 


LDX 

#S12 

channel 18 

CF9D 

86 

03 


STX 

$83 


CF9F 

20 

07 

DI 

JSR 

$D107 

open write channel 

CFA2 

20 

00 

CI 

JSR 

SClOO 

turn LBD on 

CFA5 

20 

25 

DI 

JSR 

$D125 

check file type 

CFA8 

90 

05 


BCC 

$CFAF 

no rol-file 

CFAA 

A9 

20 


LDA 

#$20 


CFAC 

20 

9D 

DD 

JSR 

$DD9D 

change buffer 

CFAF 

A5 

83 


LDA 

$83 

secondary address 

CFRl 

C9 

OF 


CMP 

#$0F 

15? 

CFb3 

FO 

23 


BEO 

SCFD8 

yos 

CFB5 

DO 

08 


BNE 

SCFBF 

no 

CFB7 

A5 

.84 


LDA 

$84 

secondary address 

CFB9 

29 

OF 


AND 

#$8F 
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ci'nn 

C9 

OF 

CMP 

«SOF 

Cl'BD 

BO 

19 

BCS 

SCF08 

CFBF 

20 

25 01 

JSR 

$0125 

CFC2 

BO 

05 

BCS 

SCFC9 

CFC4 

A5 

85 

LDA 

$85 

CFC6 

4C 

90 DI 

JMP 

$0190 

CKC9 

00 

03 

BNE 

SCFCE 

CFCB 

4C 

AB EO 

JMP 

$E0AB 

CFCE 

A5 

85 

LDA 

$85 

CFDO 

20 

FI CF 

JSR 

$CFF1 

CFD3 

A4 

82 

LDY 

$82 

CFD5 

4C 

EE 03 

JMP 

$D3EE 

CFDB 

A9 

04 

LDA 

#$04 

CFDA 

85 

82 

STA 

$82 

CFDC 

20 

E8 04 

JSR 

$D4E8 

CFDP 

C9 

2A 

CMP 

#$2A 

CFEl 

FO 

05 

BEO 

$CFE8 

CFE3 

A5 

85 

LDA 

$85 

CFE5 

20 

FI CF 

JSR 

$CFF1 

CFEfl 

A5 

F8 

LDA 

$F8 

CFEA 

FO 

01 

BEO 

SCFED 

CFEC 

60 


RTS 


CFED 

EE 

55 02 

INC 

$0255 

CFFO 

60 


RTS 


***************************** 

CFFl 

48 


PHA 


CFF2 

20 

93 DF 

JSR 

$DF9 3 

CFF6 

10 

06 

DPL 

$CFFD 

CFF7 

68 


PLA 


CFF8 

A9 

61 

LDA 

#$61 

CFFA 

4C 

C8 CI 

JMP 

$C1C8 

CFFD 

OA 


ASL 

A 

CFFE 

AA 


TAX 


CFFF 

68 


PLA 


DODO 

81 

99 

STA 

($99,X) 

D002 

F6 

99 

INC 

$99,X 

D004 

60 


RTS 


****************.***»*******. 

D005 

20 

DI CI 

JSR 

$C1D1 

D008 

20 

42 00 

JSR 

$004 2 

DOOB 

4C 

94 CI 

JMP 

$C194 

************************.***. 

DOGE 

20 

OF FI 

JSR 

$P10F 

0011 

A8 


TAT 


0012 

B6 

A7 

LDX 

SA7,Y 

0014 

EO 

FF 

CPX 

#$FF 

0016 

48 


PHA 


0019 

20 

BE 02 

JSR 

$D28E 


cjreator than 15? 

then input buffer 

check file typo 

rol-filo or direct accesa? 

data byte 

write in buffer 

direct accesa file? 
write data byte in rei-file 

write data byte in buffer 

channel number 

preparo next byte for output 

channel 4 

corresponding input buffer 
set buffer pointer 
40 

buffer end? 

write data byte in buffer 

end flag set? 

yes 


set command flag 


write data byte in buffer 
save data byte 
get buffer number 
associated buffer? 


61, 'file not open' 
buffer number times 2 
as index 
data byte 
write in buffer 
increment buffer pointer 


r-command, Initialize 
find drive number 
load BAH 

preparo disk status 
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DOIC 

AA 



TAX 


DOID 

A9 

70 


LDA 

#$70 

D021 

20 

48 

E6 

JSR 

$E648 

D024 

68 



PLA 


DO 25 

A8 



TAY 


DO 26 

SA 



TXA 


DO 27 

09 

80 


ORA 

#$80 

D029 

99 

A7 

00 

STA 

$00A7,Y 

D02C 

OA 



TXA 


D02D 

29 

OF 


AND 

#$0F 

D0 2F 

85 

F9 


STA 

$F9 

D031 

A2 

00 


LDA 

#$00 

D033 

86 

81 


STX 

$81 

D035 

AD 

85 

FE 

LDX 

$FEn5 

DO 38 

86 

80 


STX 

$80 

DOSA 

20 

D3 

D6 

JSR 

SD6D3 

D03D 

A9 

BO 


LDA 

«$B0 

D03F 

4C 

nc 

D5 

JMP 

$D50C 


****************************** 


D04 2 

20 

DI 

FO 

JSR 

$F0D1 

DO 45 

20 

13 

D3 

JSR 

$D313 

D048 

20 

OE 

DO 

JSR 

$D00E 

D04B 

A6 

7F 


LDX 

$7F 

D04D 

A9 

00 


LDA 

#$00 

D04F 

9D 

51 

02 

STA 

$0251,X 

D052 

8A 



TXA 


D053 

OA 



ASL 

A 

D054 

AA 



TAX 


D055 

A5 

16 


LDA 

$16 

D057 

95 

12 


STA 

$12,X 

D059 

A4 

17 


LDA 

$17 

D05B 

95 

13 


STA 

$13,X 

D05D 

20 

86 

D5 

JSR 

$D586 

D060 

A5 

F9 


LDA 

$F9 

D062 

OA 



ASL 

A 

DO 6 3 

AA 



TAX 


D064 

A9 

02 


LDA 

#$02 

D0e6 

95 

99 


STA 

$99,X 

D068 

Al 

99 


LDA 

($99,X) 

D06A 

A6 

7F 


LDX 

$7F 

D06C 

9D 

01 

01 

STA 

$0101 ,X 

D06F 

A9 

00 


LDA 

»$00 

D071 

95 

IC 


STA 

S1C,X 

D073 

95 

FF 


STA 

$FF,X 




D075 

20 3A EF 

JSR 

$EF3A 

D078 

AO 04 

LDY 

#$04 

DO 7 A 

A9 00 

LDA 

#S00 

D07C 

AA 

TAX 


D07D 

18 

CLC 


D07E 

71 6D 

ADC 

($6D),Y 

D080 

90 01 

BCC 

$D083 

D0n2 

E8 

INX 



70/ 'no channel' 


sector 0 

in 

track 18 

transmit parare to disk controller 
command code 'rcad block headcr' 
transmit to disk controller 

load BAH 


read block 
drive number 

reset £lag for 'BAH changed' 


savo ID 


buffer number 


buffer pointer to S200 

get character from buffer 
drive number 


flag for write protect 
flag for rcad error 

calculate blocks free 
buffer addrcss to $6D/$6E 
bcgin at position 4 


add no. of free blocks per track 
X as hi-byte 
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D083 

C8 



INY 


D084 

C8 



INY 


D085 

C8 



INY 


0086 

C8 



INY 


0087 

CO 

48 


CPY 

»$48 

0089 

FO 

F8 


BEO 

$0083 

0080 

CO 

90 


CPY 

#$90 

0080 

DO 

BE 


ONE 

$0070 

008 F 

48 



PHA 


0090 

8A 



TXA 


0091 

A6 

7F 


LDX 

$7F 

0093 

90 

FC 

02 

STA 

$02FC,X 

0096 

68 



PLA 


0097 

90 

FA 

02 

STA 

$02FA,X 

D09A 

60 



RTS 



jt***************************** 


0090 

20 

DO 

06 

JSR 

$0600 

D09E 

20 

C3 

DO 

JSR 

$D0C3 

DOAl 

20 

99 

05 

JSR 

$0599 

D0A4 

20 

37 

DI 

JSR 

$0137 

D0A7 

85 

80 


STA 

$80 

D0A9 

20 

37 

DI 

JSR 

$0137 

DOAC 

85 

81 


STA 

$81 

OOAE 

60 



RTS 


DOAF 

20 

90 

DO 

JSR 

$0090 

0002 

A5 

80 


LOA 

$80 

0004 

DO 

01 


ONE 

$0007 

0006 

60 



RTS 


0007 

20 

lE 

CF 

JSR 

$CF1E 

DOBA 

20 

DO 

06 

JSR 

$0600 

OOBD 

20 

C3 

DO 

JSR 

SOOC3 

OOCO 

4C 

lE 

CF 

JMP 

$CF1E 

*«****************É**********! 

D0C3 

A9 

80 


LOA 

#$80 

D0C5 

DO 

02 


ONE 

$D0C9 

*****************************: 

D0C7 

A9 

90 


LOA 

#$90 

D0C9 

80 

40 

02 

STA 

$0240 

DOCC 

20 

93 

DF 

JSR 

SDF93 

DOCF 

AA 



TAX 


Od 00 

20 

06 

05 

JSR 

$0506 

0003 

8A 



TXA 


0004 

48 



PHA 


0005 

OA 



ASL 

A 

0006 

AA 



TAX 


0007 

A9 

00 


LOA 

»$00 

0009 

95 

99 


STA 

$99,X 

DODO 

20 

25 

DI 

JSR 

$0125 

DO DE 

C9 

04 


CMP 

#$04 

OOEO 

00 

06 


BCS 

$D0E8 

D0E2 

F6 

05 


INC 

$05,X 


plus 4 


track 187 
thcn skip 

last track numbor? 
no 

Io-byte 
hi-byte 
drive number 
hi-byto to $2FC 
Io-byte 
to $2FA 


parametcrs to disk controller 

rcad block 

ok? 

get byte from buffer 
track 

noxt byte frora buffer 
sector 


track 


change buffer 

parametcrs to disk controller 
rcad block 
change buffer 

read block 
code for ’road' 


write block 
code for 'write' 
save 

get buffer numbor 

get track/sector, read/write blk 


buffer pointer times 2 

pointer in buffer to zero 
get file type 

rol-filo or direct accese? 
yes 
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D0E4 

DO 

02 


BNE 

$D0E8 

D0E6 

F6 

UH 


INC 

$UD,X 

DO EH 

68 



BLA 


D0E9 

AA 



TAX 


DORA 

60 



RTS 


****************************** 

DOEH 

A5 

03 


LDA 

$03 

DOED 

C9 

13 


CMP 

«$13 

DO E E 

90 

02 


UCC 

$D0F3 

DORI 

29 

OF 


AND 

#$0F 

D0F3 

C9 

OF 


CMP 

#$0F 

D0F5 

DO 

02 


BNE 

$D0F9 

D0F7 

A9 

10 


LDA 

#$10 

D0F9 

AA 



TAX 


DO FA 

38 



SEC 


DOFR 

BD 

2H 

02 

LDA 

$022n,X 

DOFE 

30 

06 


HMI 

SD106 

DlOO 

29 

OF 


AND 

#$0F 

D102 

85 

82 


STA 

$02 

D104 

AA 



TAX 


D105 

18 



CLC 


D106 

60 



RTS 


A***************************** 

D107 

A4 

83 


LDA 

$83 

D109 

C9 

13 


CMP 

#$13 

DIOH 

90 

02 


BCC 

$D10F 

DIOD 

29 

OF 


AND 

#$0F 

DIOF 

AA 



TAX 


DUO 

UD 

2U 

02 

LDA 

$0221),X 

D113 

A8 



TAY 


D114 

OA 



ASL 

A 

D115 

90 

OA 


BCC 

$D121 

D117 

30 

OA 


BMI 

$D123 

D119 

98 



TYA 


DllA 

29 

OF 


AND 

#$0F 

DllC 

85 

82 


STA 

$82 

DUE 

AA 



TAX 


DllF 

18 



CLC 


D120 

60 



RTS 


D121 

30 

F6 


BMI 

$D119 

D123 

38 



SEC 


D124 

60 



RTS 


***4************************** 

DI 25 

A6 

82 


LDX 

$82 

11127 

B5 

EC 


LDA 

$EC,X 

DI 29 

4A 



LSR 

A 

nl2A 

29 

07 


AND 

#$07 

D12C 

C9 

04 


CMP 

«$04 

012 E 

60 



RTS 



****************************** 


incremont block countcr 


open channel for roading 
socondary addt'css 
19 

smallcr? 


16 


flag for ok 


open channel for writing 
socondary addross 
19 

smaller? 


channel number 


flag for ok 


flag for channel allocated 


check for file type ’REL' 


•bel'? 


get buffer and channel numbers 
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get buffer nutnber 


D12F 

20 

93 

DF 

JSR 

$DF93 

D132 

OA 



ASL 

A 

D133 

AA 



TAX 


D134 

A4 

82 


LDY 

$8 2 

D136 

60 



RTS 


***************************** 

DI 37 

20 

2F 

DI 

JSR 

$D12F 

D13A 

B9 

44 

02 

LDA 

$0244,y 

D13D 

FO 

12 


BEO 

$D151 

D13F 

Al 

99 


LDA 

($99,X) 

D141 

48 



PIIA 


D142 

B5 

99 


LDA 

$99,X 

D144 

D9 

44 

02 

CMF 

$0244,Y 

D147 

DO 

04 


BNE 

$D14D 

D149 

A9 

FF 


LDA 

#$FF 

D14B 

95 

99 


STA 

$99,X 

D14D 

68 



PLA 


D14E 

F6 

99 


INC 

$99,X 

D150 

60 



RTS 


DISI 

Al 

99 


LDA 

($99,X) 

D153 

F6 

99 


INC 

$99,Y 

D155 

60 



RTS 



****************************** 


DI 56 

20 

37 

DI 

JSR 

$D137 

D159 

DO 

36 


BNE 

$D191 

D15B 

85 

85 


STA 

$85 

D15D 

B9 

44 

02 

LDA 

$0244,Y 

Dieo 

FO 

08 


BEO 

$D16A 

D162 

A9 

80 


LDA 

#$80 

D164 

99 

F2 

00 

STA 

$OOF2,Y 

D167 

A5 

85 


LDA 

$85 

DI 69 

60 



RTS 


D16A 

20 

IB 

CF 

JSR 

$CF1E 

D16D 

A9 

00 


LDA 

#$00 

D16F 

20 

CO 

D4 

JSR 

$D4C8 

D172 

20 

37 

DI 

JSR 

$D137 

D175 

C9 

00 


CMP 

#$00 

DI 77 

FO 

19 


BEO 

$D192 

D179 

85 

80 


STA 

$80 

D17B 

20 

37 

DI 

JSR 

SD137 

DI 7 E 

85 

81 


STA 

$B1 

D180 

20 

IH 

CF 

JSR 

$CP1E 

D183 

20 

D3 

DI 

JSR 

$D1D3 

D186 

20 

DO 

D6 

JSR 

$D6D0 

D189 

20 

C3 

DO 

JSR 

$D0C3 

D18C 

20 

lE 

CF 

JSR 

$CF1E 

D18F 

A5 

85 


LDA 

$85 

D191 

60 



RTS 


D192 

20 

37 

DI 

JSR 

$D137 

D196 

A4 

82 


LDY 

$82 

D197 

99 

44 

02 

STA 

$0244,Y 


get a byte froro buffer 

get buffer and channel numbor 

end pointer 


get byte and road next block 

get byte from buffer 

not last charactor? 

save data byte 

end pointer 

yes 

READ-flag 
data byte 


change buffer and road next block 

set buffer pointer to zero 

get flrst byte from buffer 

track number zero 

yes, then last block 

save last track number 

get next byte 

save as following track 

change buffer and road next block 

save drive number 

param to disk controller 

transmit read command 

change buffer and read block 

get data byte 


get next byte from buffer 
save as end pointer 


get byte from buffer 

buffer pointer 
equal end pointer? 
no 

buffer pointer to -1 
data byte 

increment buffer pointer 

get character froro buffer 
increment buffer pointer 
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D19A 

A5 

85 

I,DA 

$85 

D19C 

60 


RTS 


****************************** 

D19D 

20 

FI CF 

JSR 

$CFF1 

DIAO 

FO 

01 

BEO 

$D1A3 

D1A2 

60 


RTS 


D1A3 

20 

D3 DI 

JSR 

$D1D3 

D1A6 

20 

lE FI 

JSR 

$F11E 

D1A9 

A9 

00 

LDA 

*$00 

DIA» 

20 

C8 D4 

JSR 

$D4C8 

DlAE 

A5 

80 

LDA 

$80 

DIQO 

20 

FI CF 

JSR 

$CFF1 

Dln3 

A5 

81 

LDA 

$81 

Dl»5 

20 

FI CF 

JSR 

$CFF1 

01B8 

20 

C7 00 

JSR 

$D0C7 

Din» 

20 

lE CF 

JSR 

$CF1E 

DlUE 

20 

DO D6 

JSR 

$D6D0 

DICI 

A9 

02 

LDA 

#S02 

D1C3 

4C 

C8 D4 

JMP 

SD4C8 

****************************** 

D1C6 

85 

6F 

STA 

$6F 

Die» 

20 

E8 D4 

JSR 

$D4E8 

Die» 

18 


CLC 


Dice 

65 

6F 

ADC 

$6F 

DICE 

95 

99 

STA 

$99,X 

DI DO 

85 

94 

STA 

$94 

D1D2 

60 


RTS 


****************************** 

D1D3 

20 

93 DF 

JSR 

$DF93 

D1D6 

AA 


TAX 


D1D7 

BD 

5B 02 

LDA 

$025n,X 

DI DA 

29 

01 

AND 

«$01 

DIDC 

85 

7F 

STA 

S7F 

DIDE 

60 


RTS 


****************************** 

DI DE 

38 


SEC 


DIEO 

DO 

01 

ncs 

$D1E3 

****************************** 

D1E2 

18 


CLC 


D1E3 

08 


PHP 


D1E4 

85 

6F 

STA 

$6F 

Dice 

20 

27 D2 

JSR 

$0227 

D1E9 

20 

7F D3 

JSR 

$D37F 

DIEC 

85 

82 

STA 

$82 

DIEE 

A6 

03 

LDX 

$83 

DIPO 

28 


PLP 


DIPI 

90 

02 

BCC 

$D1F5 

D1P3 

09 

80 

ORA 

#$80 

Dll'5 

9D 

20 02 

STA 

$022»,X 

DlFtl 

29 

3F 

AND 

#$3F 


get data byte back 

byte in buffer and wrlte block 
byte In buffer 
buffer full? 


get drive number 
find free block in BAH 

buffer pointer to zero 

track number as first byte 

sector number as second byte 

write block 

change buffer 

param to disk controller 

buffer pointer to 2 

increment buffer pointer 

get buffer pointer 


and increment 


get drive number 
get drive number 


isolate drive number 
and save 


find write channel and buffer 
flag for writing 


find read channel and buffer 

flag for reading 

save 

buffer number 
doso channel 
allocato froc channel 
channel number 
socondary address 

read channel? 
flag for writing 
set 
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DI FA 

A8 



TAY 



DIFB 

A9 

FF 


LDA 

#SFF 

default value 

DIFD 

99 

A7 

00 

STA 

$00A7,Y 


D200 

99 

AE 

00 

STA 

$OOAE,Y 

write In assoclated table 

D203 

99 

CD 

00 

STA 

SnOCD,Y 


D206 

C6 

6F 


DEC 

$6F 

decrement buffer number 

D208 

30 

IC 


BMI 

$D226 

done alroady? 

D20A 

20 

OE 

02 

JSR 

$D2BE 

flnd buffer 

D20D 

10 

08 


DPL 

SD217 

found? 

D20F 

20 

5A 

D2 

JSR 

SD25A 

erase flags in table 

D212 

A9 

70 


LDA 

#$70 

D214 

4C 

C8 

CI 

JMP 

SC1C8 

70, 'no channel' 

D217 

99 

A7 

00 

STA 

S00A7,Y 

buffer number in table 

D21A 

C6 

6F 


DEC 

$6F 

buffer number 

D21C 

30 

08 


HMI 

$D226 

already done? 
find buffer 

D21B 

20 

SE 

D2 

JSR 

$D28E 

D221 

30 

EC 


BMI 

SD2bF 

not found? 

D223 

99 

AE 

00 

STA 

$OOAE,Y 

buffer number in table 

D226 

60 



RTS 



A***************************** 

dose channel 

D227 

A5 

83 


LDA 

$83 

secondary address 

D229 

C9 

OF 


CMP 

#$0F 

15? 

D22D 

DO 

01 


BNE 

SD22E 

no 

D22D 

60 



RTS 


else done already 

D22E 

A6 

83 


LDX 

$83 


D230 

BD 

2B 

02 

LDA 

$022B,X 

channel number 

D233 

C9 

FF 


CMP 

#$FF 

not associated? 

D235 

FO 

22 


BEO 

$D259 

then done 

D237 

29 

3F 


AND 

#$3F 


D239 

85 

82 


STA 

$82 

channel number 

D23B 

A9 

FF 


LDA 

#$PF 


D23D 

9D 

2B 

02 

STA 

$022B,X 

erase association in table 

D240 

A6 

82 


LDX 

$82 


D242 

A9 

00 


LDA 

#$00 


D244 

95 

F2 


STA 

SF2,X 

erase READ and URITE flag 

D246 

20 

5A 

D2 

JSR 

$025A 

free buffer 

D249 

A6 

82 


LDX 

$82 

channel number 

D24B 

A9 

01 


LDA 

#$01 

set bit 0 

D24D 

CA 



DEX 



D24B 

30 

03 


Buri 

$0253 

shift to correct position 

D250 

OA 



ASL 

A 

D251 

DO 

FA 


BNE 

$D24D 


D253 

OD 

56 

02 

ORA 

$0256 

free in allocation register 

D256 

8D 

56 

02 

STA 

$0256 

D259 

60 



RTS 




free buffer 

D25A 

A6 

82 


LDX 

$82 

channel number 

D25C 

B5 

A7 


LDA 

$A7,X 

buffer number 

D25E 

C9 

FF 


CMP 

#$FF 


D260 

FO 

09 


BEO 

$D26B 

not associated? 

D262 

48 



PBA 



D263 

A9 

FF 


LDA 

#$FF 
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D265 

95 

A7 


STA 

$A7,X 

D267 

68 



PLA 


D268 

20 

F3 

02 

JSR 

$D2F3 

D26E) 

A6 

82 


LDX 

$82 

D26D 

B5 

AB 


LDA 

$AE,X 

D26F 

C9 

FF 


CHP 

(tSFF 

D271 

FO 

09 


BEO 

$D27C 

D27 3 

48 



PHA 


D274 

A9 

FF 


LDA 

#SFF 

D276 

95 

AB 


STA 

$AE,X 

D278 

68 



PLA 


D279 

20 

F3 

D2 

JSR 

$02F3 

D27C 

A6 

82 


LDX 

$82 

D27E 

[35 

CD 


LDA 

$CD,X 

D280 

C9 

FF 


CMP 

#$FF 

D282 

FO 

09 


BEO 

$0280 

D284 

48 



PHA 


D285 

A9 

FF 


LDA 

«$FF 

D287 

95 

CD 


STA 

SCD.X 

D289 

68 



PLA 


D28A 

20 

F3 

D2 

JSR 

$D2F3 

D28D 

60 



PTS 


**** 4 ************************* 

D28E 

98 



TYA 


D28F 

48 



PHA 


D290 

AO 

01 


LDY 

«$01 

D292 

20 

OA 

D2 

JSR 

$D2BA 

D295 

10 

OC 


BPL 

$D2A3 

D297 

88 



DEY 


D29B 

20 

DA 

D2 

JSR 

$D2BA 

D29n 

10 

06 


DPL 

$D2A3 

D29D 

20 

39 

03 

JSR 

$D339 

D2A0 

AA 



TAX 


D2A1 

30 

13 


BMI 

$02136 

D2A3 

B5 

00 


LDA 

$00,X 

D2A5 

30 

FC 


BHI 

$02A3 

D2A7 

A5 

7F 


LDA 

$7F 

D2A9 

95 

00 


STA 

$00,X 

D2AB 

90 

5U 

02 

STA 

$025B,X 

D2Ai; 

8A 



TXA 


D2AF 

OA 



ASL 

A 

D2B0 

A8 



TAY 


D2U1 

A9 

02 


LDA 

#S02 

D2H3 

99 

99 

00 

STA 

$0099,Y 

0286 

68 



PLA 


02 H7 

AB 



TAY 


D2U8 

8A 



TXA 


02139 

60 



RTS 


02 BA 

A2 

07 


LDX 

#$07 

D2BC 

139 

4F 

02 

LDA 

$024F,Y 

D2UF 

30 

E9 

EF 

ANO 

$EFE9,Y 

D2C2 

FO 

04 


BEO 

$D2C8 

D2C4 

CA 



DEX 



erase buffer association 

eraso buffer allocation rec.lster 
channol number 

associated in second tablc? 
no 

erase association 

craso buffer in allocation reg. 
channel number 

associated in 3rd table? 
no 

erase association 

erase buffer in allocation reg 

find buffer 


erase bit 
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D2C5 

10 

F5 


BPL 

$D2BC 

D2C7 

60 



RTS 


D2C8 

09 

4F 

02 

LDA 

$024F,Y 

D2CB 

50 

E9 

EF 

EOR 

SEFE9,X 

D2CE 

99 

4F 

02 

STA 

$024F,Y 

D2D1 

8A 



TXA 


02 D2 

88 



DEY 


02 03 

30 

03 


BMI 

$0208 

0205 

18 



CLC 


0206 

69 

08 


ADC 

CO 

o 

t/v 

02 08 

AA 



TAX 


0209 

60 



RTS 


02 DA 

A6 

82 


LDX 

$82 

02 OC 

D5 

A7 


LOA 

$A7 ,X 

02 OE 

30 

09 


BMI 

$D2E9 

D2E0 

8A 



TXA 


02B1 

18 



CLC 


D2E2 

69 

07 


ADC 

#807 

02 E4 

AA 



TAX 


D2E5 

»5 

A7 


LDA 

$A7,X 

02 E7 

10 

FO 


BPL 

$0209 

02 E9 

C9 

FF 


CMP 

#$FF 

02ED 

PO 

EC 


BEO 

$0209 

D2ED 

48 



PHA 


02 EE 

A9 

FF 


LDA 

#$FF 

02 PO 

95 

A7 


STA 

$A7,X 

D21'2 

68 



PLA 


D2F3 

29 

OF 


AND 

#$0F 

02 P5 

A8 



TAY 


02 F6 

C8 



INY 


02 F7 

A2 

10 


LDX 

(t$10 

02 F9 

6E 

50 

02 

ROR 

$0250 

02 FC 

6 E 

4F 

02 

ROR 

$024F 

D2PF 

88 



DEY 


0300 

DO 

01 


ONE 

$0303 

0302 

18 



CLC 


0303 

CA 



DEX 


0304 

10 

F3 


BPL 

$D2F9 

0306 

60 



RTS 



0307 

A9 

OE 


LDA 

lt$0E 

0309 

85 

83 


STA 

$83 

030» 

20 

27 

02 

JSR 

$0227 

O30E 

C6 

83 


DEC 

$83 

0310 

DO 

F9 


ONE 

$D30B 

0312 

60 



RTS 


******»**»**i,******»*»*t»i,t»i,, 

0313 

A9 

OE 


LDA 

#$0E 

0315 

85 

83 


STA 

$83 

0317 

A6 

83 


LDX 

$83 

0319 

BD 

20 

02 

LDA 

$022B,X 

03IC 

C9 

FF 


CMP 

#$FF 


rotate bit 
buffer number 


buffer number 


buffer number 
16 

rotate 16-bit allocation rcg. 


eraso bit for buffer 


doso all channels 
14 

sccondary address 

dose channel 

noxt secondary address 


dose channels of other drives 
14 

secondary address 

association table 
channel associated? 
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D31E 

FO 

14 


BEO 

SD334 

D320 

29 

3F 


ANO 

#$3F 

D322 

85 

82 


STA 

$82 

D324 

20 

93 

DF 

JSR 

SDF93 

D327 

AA 



TAX 


D328 

BD 

5D 

02 

LDA 

$025B,X 

D3 2B 

29 

01 


AND 

#$01 

D32D 

C5 

7F 


CMP 

$7F 

D3 2F 

DO 

03 


BNE 

$D334 

D331 

20 

27 

D2 

JSR 

$D227 

D334 

C6 

83 


DEC 

$03 

D336 

10 

DF 


BPL 

$D317 

0330 

60 



RTS 





D339 

A5 

6F 

LDA 

$6F 

D33B 

48 


PHA 


D3 3C 

AO 

00 

LDY 

#$00 

D33E 

Bf. 

FA 

LDX 

$FA,V 

0340 

B5 

A7 

LDA 

$A7,X 

D342 

10 

04 

BPL 

$D348 

D344 

C9 

FF 

CMP 

#$FF 

D346 

DO 

16 

BNE 

$D35E 

D348 

8A 


TXA 


D349 

18 


CLC 


D34A 

69 

07 

ADC 

#S07 

D34C 

AA 


TAX 


D34D 

B5 

A7 

LDA 

$A7 ,X 

D34F 

10 

04 

BPL 

$D35.5 

D351 

C9 

FF 

CMP 

#$FF 

D353 

DO 

09 

BNE 

$D35E 

D355 

CO 


INY 


D356 

CO 

05 

cpy 

#$05 

D358 

90 

E4 

BCC 

$D33E 

D35A 

A2 

FF 

I.DX 

#$FF 

D35C 

DO 

IC 

BNE 

$D37A 

D35E 

86 

6F 

STX 

$6F 

D360 

29 

3F 

AND 

#$3F 

D362 

AA 


TAX 


D363 

B5 

00 

LDA 

$00,X 

D365 

30 

FC 

BMI 

$D363 

D367 

C9 

02 

CMP 

#$02 

D369 

90 

08 

BCC 

$D37 3 

D36B 

A6 

6F 

LDX 

$6F 

D30D 

EO 

07 

CPX 

»$07 

D36F 

90 

07 

BCC 

$D348 

D371 

BO 

E2 

BCS 

$D355 

D373 

A4 

6F 

LDY 

$6F 

n375 

A9 

FF 

LDA 

#$FF 

D377 

99 

A7 00 

STA 

$00A7,Y 

D37A 

68 


PLA 


D37B 

85 

6F 

STA 

$6F 

D37D 

8A 


TXA 


D37E 

60 


RTS 



no 

channel number 
get buffer nutnber 

drive number 
isolate 

equal to actual drive number 
no 

dose cbannel 
next channel 
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****************************** 


D37F 

AO 

00 


LDY 

*$00 

D381 

A9 

01 


EDA 

«$01 

D383 

2C 

56 

02 

BIT 

$0256 

D386 

DO 

09 


ONE 

$0391 

D388 

C8 



INy 


D389 

OA 



Asr, 

A 

D38A 

DO 

E7 


BNE 

$D383 

D38C 

A9 

70 


EDA 

#$70 

D38E 

4C 

C8 

CI 

JMP 

$C1C8 

D391 

49 

FF 


EOR 

#$FF 

D393 

2D 

56 

02 

AND 

$0256 

D396 

80 

56 

02 

STA 

$0256 

D399 

98 



TVA 


D39A 

60 



BTS 


*****************************1 

D39B 

20 

EU 

DO 

JSB 

$D0EB 

D39E 

20 

00 

CI 

JSR 

$C100 

D3A1 

20 

AA 

D3 

JSR 

$D3AA 

D3A4 

A6 

82 


EDX 

$82 

D3A6 

BD 

3 E 

02 

EDA 

Sn23E,X 

D3A9 

60 



RTS 


D3AA 

A6 

82 


EDX 

$82 

D3AC 

20 

25 

DI 

JSR 

$D125 

D3AF 

DO 

03 


BNE 

SD3B4 

D3B1 

4C 

20 

E1 

JMP 

$E120 

D3B4 

A5 

83 


EDA 

$83 

D3U6 

C9 

OF 


CMP 

#$0E 

D3U8 

EO 

5A 


BEO 

$0414 

D3UA 

H5 

F2 


EDA 

$F2,X 

D3HC 

29 

08 


AND 

#$08 

D30E 

DO 

13 


BNE 

$D3D3 

D3C0 

20 

25 

DI 

JSR 

$D125 

D3C3 

C9 

07 


CMP 

#$07 

D3C5 

DO 

07 


BNE 

SD3CE 

D3C7 

A9 

89 


EDA 

#$89 

D3C9 

95 

F2 


STA 

SE2,X 

D3CU 

4C 

DE 

D3 

JMP 

$D3DE 

D3CE 

A9 

00 


EDA 

«$00 

D3D0 

95 

E 2 


STA 

$F2,X 

D3D2 

60 



RTS 


D3D3 

A5 

83 


EDA 

$83 

D3D5 

EO 

32 


BEO 

$0409 

D3D7 

20 

25 

DI 

JSR 

$0125 

D3DA 

C9 

04 


CMP 

#S04 

D3DC 

90 

22 


BCC 

$0400 

D3DE 

20 

2F 

DI 

JSR 

$D12F 

D3E1 

B5 

99 


EDA 

$99,X 


find channel and allocato 

set bit 0 

channel free? 

rotate bit to left 
all channels checked? 

70, 'no channel' 

rotate bit model 
erase bit 
allocate channel 


get byte for output 
open channel for roading 
turn I,KD on 

get byte in output register 
channel numbcr 
get byte 


channel number 
check file type 
no rei-filo? 
get byte from rei-file 

secondary address 
15 

yes, read orror channel 

end flag set? 
no 

check file type 
direct acccss filo? 
no 

set READ and WRITE flag 


erase READ and V/RITE flag 


secondary address 

zero, LOAD? 

check file type 

rei-file or direct access? 

no 

get buffer and channel number 
buffer pointer 


154 



I SEGRETI DEL 1541 


equal end pointer? 
no 

buffer pointer to zero 
increment buffer pointer 
get byte froui buffer 
Into output register 
buffer pointer 
equal end pointer? 
no 

set flags 


get byte from buffer 

channcl number 

byte in output register 

flag for directory? 
no 

create directory line 


set buffer pointer 


CR 

in output register 
erase orror flags 

creato 'ok' messagc 
set buffer pointer back 
set READ flag 


get byte from buffer 
into output register 


D3E3 

D9 

44 

02 

CMP 

$0244,Y 

D3E6 

DO 

04 


BNE 

$D3EC 

D3E8 

A9 

00 


LDA 

«$00 

D3EA 

95 

99 


STA 

$99,X 

D3EC 

F6 

99 


INC 

$99,X 

D3EE 

Al 

99 


LDA 

($99,X) 

D3F0 

99 

3 E 

02 

STA 

$023E,Y 

D3K3 

B5 

99 


LDA 

$99,X 

D3E5 

D9 

44 

02 

CMP 

$0244,Y 

D3F8 

DO 

05 


ONE 

$D3FF 

D3KA 

A9 

81 


LDA 

#$81 

D3KC 

99 

F2 

00 

STA 

$OOF2,Y 

D3l-'l-’ 

CO 



RTS 


D400 

20 

56 

DI 

JSR 

$D156 

D403 

A6 

82 


LDX 

$02 

D405 

9D 

3E 

02 

STA 

$023E,X 

D408 

60 



RTS 


D409 

AD 

54 

02 

LDA 

$0254 

D40C 

FO 

F2 


BEO 

$D400 

D40E 

20 

67 

ED 

JSR 

$ED67 

D411 

4C 

03 

D4 

JMP 

$0403 

D414 

20 

E8 

D4 

JSR 

$ D4 E8 

D417 

C9 

D4 


CMP 

#$D4 

D419 

DO 

18 


BNE 

SD433 

D41B 

A5 

95 


LDA 

$95 

D41D 

C9 

02 


CMP 

#$02 

D41F 

DO 

12 


BNE 

$D433 

D421 

A9 

OD 


LDA 

#$0D 

D4 23 

85 

85 


STA 

$85 

D425 

20 

23 

CI 

JSR 

$C123 

D4 28 

A9 

00 


r.DA 

#$00 

D4 2A 

20 

CI 

E6 

JSR 

$E6C1 

D42D 

C6 

A5 


DEC 

SA5 

D42F 

A9 

80 


LDA 

#$80 

D431 

DO 

12 


BNE 

$D445 

D433 

20 

37 

DI 

JSR 

$D137 

D4 36 

85 

85 


STA 

$85 

D4 38 

DO 

09 


BNE 

$D443 

D4 3A 

A9 

D4 


LDA 

#$D4 

D43C 

20 

C8 

D4 

JSR 

$D4C8 

D4 3F 

A9 

02 


LDA 

#$02 

D441 

95 

9A 


STA 

$9A,X 

D4 4 3 

A9 

88 


LDA 

#$88 

D44 5 

85 

F7 


STA 

SF7 

D447 

A5 

85 


LDA 

$85 

D449 

8D 

43 

02 

STA 

$0243 

D4 4C 

60 



RTS 



D44D 

20 

93 

DF 

JSR 

SDF93 

D4 50 

OA 



ASL 

A 


set but ptr in front of orror ptr 

hi-address 
set READ flag 

data byte 

into output register 


read next block 
get buffer number 
tiines 2 
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D451 

AA 



TAX 


D452 

A9 

00 


ODA 

#500 

D454 

95 

99 


STA 

$99,X 

D456 

Al 

99 


LDA 

($99,X) 

D458 

FO 

05 


BEO 

$D45F 

D45A 

06 

99 


DEC 

$99,X 

D45C 

4C 

56 

DI 

JMP 

$0156 

D4 5F 

60 



RTS 


***********************«*****i 

D460 

A9 

80 


LDA 

#$B0 

0462 

DO 

02 


BNE 

$0466 


0464 

A9 

90 


LOA 

#590 

0466 

05 

7F 


ORA 

S7K 

0468 

80 

40 

02 

STA 

$0240 

046» 

A5 

F9 


LDA 

$F9 

0460 

20 

03 

06 

JSR 

SD6D3 

0470 

A6 

F9 


LDX 

SF9 

0472 

4C 

93 

05 

JMP 

$059 3 


0475 

A9 

01 


LDA 

#501 

0477 

80 

4A 

02 

STA 

$024A 

047A 

A9 

11 


LDA 

#$11 

047C 

85 

83 


STA 

$83 

047E 

20 

46 

OC 

JSR 

$DC46 

0481 

A9 

02 


LDA 

#$02 

0483 

4C 

C8 

04 

JMP 

$0408 

ti,***»******»*******»**»**»»* 

0486 

A9 

12 


LDA 

#$12 

0488 

85 

83 


STA 

$83 

D48A 

4C 

DA 

OC 

JMP 

$0CDA 

***************************** 

0480 

20 

3» 

DE 

JSR 

$DK3B 

0490 

A9 

01 


LDA 

#$01 

049 2 

85 

6F 


STA 

$6F 

0494 

A5 

69 


LDA 

$69 

0496 

48 



PIIA 


0497 

A9 

03 


LDA 

#503 

0499 

85 

69 


STA 

$69 

0490 

20 

20 

FI 

JSR 

$F12D 

049E 

68 



PLA 


D49F 

85 

69 


STA 

$69 

D4A1 

A9 

00 


LDA 

#$Q0 

04A3 

20 

C8 

04 

JSR 

$04C8 

04 A6 

A5 

80 


LDA 

$80 

04A8 

20 

FI 

CF 

JSR 

$CFF1 

04 A» 

A5 

81 


LOA 

$81 

D4A0 

20 

FI 

CF 

JSR 

SCFFl 

0400 

20 

C7 

DO 

JSR 

$D0C7 

0403 

20 

99 

05 

JSR 

$0599 


buffer pointer to zero 
get first byte from buffer 
no block following? 
buffer pointer to -1 
rcad next block 


road block 

command code for rcading 


write block 

command code for writing 
drive number 
save code 

param to disk controller 
execute command 

allocate buffer and read block 

file type to scquential 

17 

socondary address 

allocate buffer and read block 

buffer pointer to 2 

allocate new block 

18 

socondary address 
allocate new block 

write directory block 
get track and scctor number 

a block 

save step width 10 for block 
allocation 


find free block in UAM 

get step width back 

buffer pointer to zero 

track number in buffer 

scctor number in buffer 
write block to disk 
and verify 
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D4B6 

A9 

00 


LDA 

»$00 

D4B8 

20 

C8 

04 

JSR 

$D4C8 

D4(3U 

20 

FI 

CF 

JSB 

$CFF1 

D4BB 

DO 

FB 


BNE 

$D4BB 

D4C0 

20 

FI 

CF 

JSR 

SCFFl 

D4C3 

A9 

FF 


LDA 

lt$FF 

D4C5 

4C 

FI 

CF 

JtlP 

SCFFl 

****************************** 

D4CB 

85 

6F 


STA 

S6F 

D4CA 

20 

93 

DF 

JSR 

$DF93 

D4CD 

OA 



ASL 

A 

D4CB 

AA 



TAX 


D4CF 

B5 

9A 


LDA 

S9A,X 

D4D1 

85 

95 


STA 

$95 

D4D3 

A5 

6F 


LDA 

S6F 

D4D5 

95 

99 


STA 

$99,X 

D4 D7 

85 

94 


STA 

$94 

D4D9 

60 



RTS 


****************************** 

D4DA 

A9 

11 


LDA 

#$11 

D4nc 

85 

83 


STA 

$83 

D4DE 

20 

27 

D2 

JSR 

$0227 

D4E1 

A9 

12 


LDA 

#$12 

D4E3 

85 

83 


STA 

$83 

D4E5 

4C 

27 

02 

JMP 

$0227 

****************************** 

D4E8 

20 

93 

DF 

JSR 

$DF93 

D4EB 

OA 



ASL 

A 

D4EC 

AA 



TAX 


D4ED 

B5 

9A 


LDA 

$9A,X 

D4EF 

85 

95 


STA 

$95 

D4F1 

B5 

99 


LDA 

$99,X 

D4F3 

85 

94 


STA 

$94 

D4F5 

60 



RTS 


****************************** 

D4F6 

85 

71 


STA 

$71 

04 F6 

20 

93 

UK 

JSR 

SOF93 

04 FB 

AA 



TAX 


D4FC 

BO 

EO 

i-'E 

LDA 

$FEE0,X 

04 FF 

85 

72 


STA 

$72 

0501 

AO 

00 


LDV 

#$00 

0503 

ni 

71 


LDA 

($71),Y 

0505 

60 



RTS 



*****«••«**«*«**********•**«•* 


0506 

BD 

50 

02 

LDA 

S025P,X 

0509 

29 

01 


AND 

#S01 

D50B 

00 

40 

02 

ORA 

S024D 

050 E 

A8 



PIIA 


05 OF 

86 

F9 


STX 

$F9 

0511 

8A 



TXA 



buffer pointer to zero 
fili buffer with zcroes 

zero as following track 

SFt’ as number of bytos 

set buffer pointer 
save pointer 
get buffer number 
tines 2 

buffer pointer hi 


buffer pointer lo, new value 


dose internai channel 
17 

dose channel 
IB 

dose channel 

set buffer pointer 
get buffer number 


buffer pointer hi 
buffer pointer lo 


get byte from buffer 

pointer lo 

get buffer number 

hi-byte buffer address 
pointer hi 

get byte from buffer 

check track and scctor numbers 
command code for disk controller 
drive number 
plus command code 
save 

buffer number 
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D512 

OA 



ASL 

A 

D513 

AA 



TAX 


D514 

D5 

07 


LDA 

$07,X 

D516 

8D 

4D 

02 

STA 

$024D 

D519 

B5 

06 


LDA 

$06,X 

D51B 

FO 

2D 


BEO 

$D54A 

D51D 

CD 

D7 

FE 

CMP 

$FED7 

D520 

BO 

28 


BCS 

$U54A 

D522 

AA 



TAX 


DS23 

68 



PLA 


D524 

48 



PHA 


D525 

29 

FO 


AND 

#$F0 

D527 

C9 

90 


CMP 

#$90 

D529 

DO 

4F 


BNE 

$D57A 

D52n 

68 



PLA 


D52C 

48 



PHA 


D52D 

4A 



LSR 

A 

D52K 

BO 

05 


BCS 

SD535 

DS30 

AD 

01 

01 

LDA 

$0101 

D533 

90 

03 


ncc 

$D538 

D535 

AD 

02 

01 

LDA 

$0102 

D53B 

FO 

05 


BEO 

$D53F 

D53A 

CD 

D5 

FR 

CMP 

$FED5 

D53D 

DO 

33 


BNE 

$D57 2 

D53F 

8A 



TXA 


D540 

20 

4B 

F2 

JSU 

$F24D 

D543 

CD 

4D 

02 

CMP 

$024D 

D546 

FO 

02 


BEO 

$D54A 

D548 

BO 

30 


BCS 

$D57A 

D54A 

20 

52 

D5 

JSU 

$D552 

D54D 

A9 

66 


LDA 

#$66 

D54F 

4C 

45 

E6 

JMP 

$E645 


****************************** 


D552 

A5 

F9 


LDA 

$F9 

D554 

OA 



ASL 

A 

D555 

AA 



TAX 


D556 

H5 

06 


LDA 

$06,X 

D558 

85 

80 


STA 

$80 

D55A 

D5 

07 


LDA 

$07,X 

D55C 

85 

81 


STA 

$81 

D55B 

60 



RTS 


D55F 

A5 

80 


LDA 

$80 

D561 

FO 

EA 


BEO 

$D54D 

D563 

CD 

D7 

FE 

CMP 

$FED7 

D566 

BO 

E5 


BCS 

$D54D 

D568 

20 

4B 

F2 

JSR 

$F24B 

D56B 

C5 

81 


CMP 

$81 

D56D 

FO 

DE 


BEO 

$D54D 

D56F 

90 

DC 


BCC 

$D54D 

D571 

60 



RTS 


D572 

20 

52 

D5 

JSR 

$D552 

D575 

A9 

73 


LDA 

#$73 


times 2 

sector 

save 

track 

66, ’lllegal track or sector' 
36, highcst track number -t- 1 
66, 'illegal track or sector' 

command code 


code for writing? 
no 


'A', format marker 
73, 'cbm dos v2.6 1541' 
track number 

got maximum sector number 
compare with sector number 
cqual, then error 
smaller? 

get track and sector number 

66, 'illegal track or sector' 

got track and sector number 
buffer number 
*2 

as index 

track 

sector 


track 

zero, then error 
36, maximum track number + 1 
66, 'illegal track or sector' 
get maximum sector number 
sector 

error 


got track and sector numbei 
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D577 

4C 

45 

E6 

JMP 

$E645 

D57A 

A6 

F9 


LOX 

$F9 

D57C 

68 



PLA 


D57D 

80 

40 

02 

STA 

$0240 

D580 

95 

00 


STA 

$00 ,X 

D58 2 

90 

50 

02 

STA 

$0250,X 

D585 

60 



KTS 


*»********»*tt*ti.*,*t*t**i,**** 

0586 

A9 

80 


LOA 

#$80 

0588 

00 

02 


ONE 

$D58C 

*****<************************ 

D58A 

A9 

90 


LOA 

#$90 

05 8C 

05 

7F 


ORA 

$7F 

058 E 

A6 

F9 


LOX 

$F9 

0590 

80 

40 

02 

STA 

$0240 

0593 

AD 

40 

02 

LOA 

$0240 

0596 

20 

OE 

05 

JSR 

$D50E 

****************************** 

0599 

20 

A6 

05 

JSR 

$D5A6 

D59C 

OO 

FO 


OCS 

$0599 

D59E 

48 



PHA 


05 91’ 

A9 

00 


LOA 

#$00 

D5A1 

80 

98 

02 

STA 

$0298 

D5A4 

68 



PLA 


D5A5 

60 



RTS 


05A6 

05 

00 


LOA 

$00,X 

05A8 

30 

lA 


OMI 

SD5C4 

05AA 

C9 

02 


CMP 

#$02 

D5AC 

90 

14 


DCC 

$05C2 

05AE 

C9 

08 


CMP 

#$08 

0500 

FO 

08 


DEO 

$D50A 

0502 

C9 

00 


CMP 

#$00 

0504 • 

FO 

04 


OEO 

SD50A 

0506 

C9 

OF 


CMP 

#$0F 

0508 

DO 

OC 


ONE 

SD5C6 

05 DA 

2C 

98 

02 

OIT 

$0298 

0500 

30 

03 


OMI 

SD5C2 

05 DF 

4C 

3F 

06 

JMP 

$D63F 

05C2 

18 



CI.C 


05C3 

60 



RTS 


D5C4 

38 



SEC 


D5C5 

60 



RTS 


D5C6 

98 



TYA 


D5C7 

48 



PHA 


05CH 

A5 

7F 


LOA 

$7F 

D5CA 

48 



PHA 


D5C0 

DO 

50 

02 

LOA 

$0250,X 


73, 'cbm dos v2.6 1541' 
buffer number 

command code for disk controller 
In cominand registor 
and write in tablc 


read block 
code for read 


write block 
code for write 
drive number 
buffer number 

command code 

check track and sector 

verify execution 
verify execution 
wait for end 


erase error flag 


cmd code (bit 7) stili in reg? 
yos 

orror-free execution 
B 

write protect 
11 

Ib mismatch 
15 


create error messagc 
execution endcd 


execution not yct cnded 


drive number 
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D5CE 

29 

01 


AND 

#$01 

D5D0 

85 

7F 


STA 

S7F 

D5D2 

A8 



TAlf 


D5D3 

B9 

CA 

FE 

LDA 

$FECA,V 

D5D6 

80 

60 

02 

STA 

$026D 

D5D9 

20 

A6 

06 

JSR 

SD6A6 

D5DC 

C9 

02 


CMP 

#$02 

D5DE 

BO 

03 


BCS 

$D5E3 

D5E0 

4C 

60 

06 

JMP 

$0660 

D5E3 

BO 

5B 

02 

LDA 

$025B,X 

D5E6 

29 

FO 


AND 

#$F0 

D5E8 

48 



PHA 


D5E9 

09 

90 


CMP 

#$90 

D5EB 

DO 

07 


BNE 

$D5F4 

D5ED 

A5 

7F 


LDA 

$7F 

D!>EE 

09 

B8 


ORA 

#$B8 

D5F1 

90 

5U 

02 

STA 

$0250,X 

D51'’4 

24 

6A 


BIT 

$6A 

D5F6 

70 

39 


BVS 

$0631 

D5F8 

A9 

00 


LDA 

#$fl0 

D5FA 

80 

99 

02 

STA 

$0299 

D5FP 

80 

9A 

02 

STA 

$029A 

D600 

AC 

99 

02 

LDY 

$0299 

D603 

AD 

9A 

02 

LDA 

$029A 

D606 

38 



SEC 


D607 

F9 

DB 

FE 

SBC 

$FEDB,Y 

D60A 

80 

9A 

02 

STA 

$029A 

D60D 

B9 

DB 

FE 

LDA 

$FEDB,Y 

D610 

20 

76 

06 

JSR 

$0676 

D613 

EE 

99 

02 

INC 

$0299 

D61G 

20 

A6 

06 

JSR 

$D6A6 

D619 

C9 

02 


CMP 

#$02 

D61U 

90 

08 


BCC 

$D625 

D61D 

AC 

99 

02 

r.DY 

$0299 

D620 

B9 

DB 

FE 

LDA 

SFEDB,Y 

D623 

.DO 

DB 


BNE 

SD600 

D6 25 

AD 

9A 

02 

LDA 

$029A 

Dfi28 

20 

76 

06 

JSR 

$D676 

UG2U 

05 

00 


LDA 

$00,X 

D62D 

C9 

02 


CMP 

»S02 

D62F 

90 

2n 


BCC 

$D65C 

D631 

24 

GA 


BIT 

$6A 

D633 

10 

OF 


BPL 

$0644 

D635 

68 



PLA 


0636 

C9 

90 


CMP 

#$90 

0638 

DO 

05 


BNE 

$D63F 

06 3 A 

05 

7F 


ORA 

$7F 

D63C 

90 

5B 

02 

STA 

$025B,X 

06 3 F 

B5 

00 


LDA 

$00,X 

0641 

20 

OA 

E6 

JSR 

SE60A 

0644 

68 



PI,A 


0645 

2C 

98 

02 

BIT 

$0298 

0648 

30 

23 


BMI 

$0660 

06 4 A 

48 



PHA 


D64B 

A9 

CO 


LDA 

#SC0 


drive number 


bit model for drive 

rcad attempt 

not ok? 
dono 

command code 
isolato 

code for write 
no 

drive number 


cntr for searches next to track 
counter 


constante for read atteropts 


position head next to track 

increment counter 

read aterapt 

return message 

smallar than 2, ok? 

load counter 

get constants 

not yet zero (table end)? 

position head 

return message 
ok? 


command code 
for writing? 
no 

drive number 
command code in table 
return message 
set error message 


command code for head positioning 
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D64D 

05 

7F 


ORA 

S7F 

D64F 

95 

00 


STA 

$00,X 

D651 

05 

00 


EDA 

$00,X 

D653 

30 

FC 


OHI 

$0651 

D655 

20 

A6 

06 

JSR 

S06A6 

D658 

C9 

02 


CMF 

#$02 

D65A 

00 

09 


BCS 

$0635 

D65C 

68 



PLA 


D65D 

C9 

90 


CMP 

#$90 

06 5E 

DO 

OC 


ONE 

$0660 

0661 

05 

7F 


ORA 

$7F 

0663 

90 

50 

02 

STA 

$0250,X 

0666 

20 

A6 

06 

JSR 

$D6A6 

0669 

C9 

02 


CMP 

#$02 

0660 

00 

02 


OCS 

$ 06 3 F 

0660 

68 



PI. A 


066 E 

85 

7F 


STA 

$7F 

0670 

68 



PLA 


0671 

A8 



TA7 


0672 

05 

00 


EOA 

$00,X 

0674 

18 



CEC 


0675 

60 



RTS 


0676 

C9 

00 


CMP 

#S00 

0678 

FO 

18 


BEO 

$0692 

067A 

30 

OC 


OHI 

$0688 

06 7 C 

AO 

01 


LOY 

#$01 

067 E 

20 

93 

06 

JSR 

$069 3 

0681 

38 



SEC 


068 2 

E9 

01 


SBC 

#$01 

0684 

OO 

F6 


ONE 

$D67C 

0686 

FO 

OA 


BEO 

$0692 

0688 

AO 

FF 


EDY 

#$FF 

068A 

20 

93 

1)6 

JSR 

$0693 

0680 

18 



CEC 


06 8 E 

69 

01 


AOC 

#S01 

0690 

00 

F6 


BNE 

$0688 

0692 

60 



RTS 


0693 

48 



PIIA 


0694 

98 



TYA 


0695 

A4 

7F 


EDY 

S7F 

0697 

99 

FE 

02 

STA 

$02FE,Y 

D69A 

09 

FE 

02 

CMP 

$02FE,y 

0690 

FO 

FB 


BEO 

$069 A 

069 F 

A9 

00 


EDA 

#S00 

D6A1 

99 

FE 

02 

STA 

$02FE,Y 

D6A4 

68 



PLA 


06 A5 

60 



RTS 


06 A6 

A5 

6A 


EOA 

$6A 

06A8 

29 

3F 


ANO 

#$3K 

06 A A 

A8 



TAY 


06Aa 

AO 

60 

02 

EOA 

$0260 


drive numbcr 
in coinmand registor 

wait for cxocution 

attempi command cxccution again 

return mossago 

incorrect? 

command code for writing 
no 

drive numbor 
in table 

attempi cxccution again 
return roeseage 
orror? 

get drive number back 


orror code 

ond-of-oxc;cution flag 


transmit data for head position 


transmit data for head position 


drive number 

wait for return messago froro 
disk controller 


maximum number of repetltions 


bit for LED 
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D6AE 

40 

00 

le 

EOR 

$1C00 

D6D1 

80 

00 

IC 

STA 

SICOO 

D6H4 

BO 

5B 

02 

LDA 

$025B,X 

06 D7 

95 

00 


STA 

$00,X 

0609 

B5 

00 


EDA 

$00,X 

D6BB 

30 

FC 


HMI 

SD6B9 

06B0 

C9 

02 


CMP 

#$02 

D6BF 

90 

03 


BCC 

$06C4 

D6C1 

88 



DEY 


B6C2 

DO 

E7 


BNE 

$06 AB 

06C4 

48 



PHA 


06C5 

AD 

60 

02 

LDA 

$0260 

06C8 

OD 

00 

IC 

ORA 

$1C00 

06CB 

80 

00 

IC 

STA 

$1C00 

D6CE 

68 



PLA 


D6CF 

60 



RTS 



****************************** 


0600 

20 

93 

DF 

JSR 

SDF93 

0603 

OA 



ASL 

A 

0604 

A8 



TAT 


0605 

A5 

80 


LDA 

$80 

0607 

99 

06 

00 

STA 

$0006,V 

06 DA 

A5 

81 


LDA 

$81 

06 OC 

99 

07 

00 

STA 

$0007,y 

06 DF 

A5 

7F 


LDA 

$7F 

D6E1 

OA 



ASL 


06 E2 

AA 



TAX 


D6E3 

60 



RTS 



****************************** 


06 E4 

A5 

83 


LDA 

$83 

06E6 

48 



PHA 


D6E7 

A5 

82 


LDA 

$82 

06 E9 

48 



PHA 


06 E A 

A5 

81 


LDA 

$81 

D6EC 

48 



PHA 


06 ED 

A5 

80 


LDA 

$80 

D6EF 

48 



PHA 


06 FO 

A9 

11 


LDA 

«$11 

D6F2 

85 

83 


STA 

$83 

06 F4 

20 

3D 

DE 

JSR 

$DE3B 

06 F7 

AD 

4A 

02 

LDA 

$024A 

06 FA 

48 



PHA 


06 FB 

A4 

E2 


LDA 

SE2 

D6FD 

29 

01 


AND 

#$01 

06 FF 

85 

7F 


STA 

$7F 

0701 

A6 

F9 


LDX 

$F9 

07 0 3 

50 

5B 

02 

EOR 

$0250,X 

0706 

4A 



LSR 

A 

0707 

90 

OC 


BCC 

$0715 

0709 

A2 

01 


LOX 

#$01 

D70B 

8E 

92 

02 

STX 

$0292 

070 E 

20 

AC 

C5 

JSR 

SC5AC 

0711 

FO 

lo 


BEO 

$0730 


command 

transmit to disk controller 

and return message 

Walt 

ok? 

yes 

dccroment counter 
attempt again 


LF.D off 


transmit param to disk controller 
get buffer number 


track number 
transmit 
scctor number 
transmit 
drive number 
timcs 2 


enter file in directory 
socondary address 

channel number 

sector number 

track number 
save 

socondary address 17 

get track and sector number 

file type 

save 

drive number 
set 

buffer number 


equal drive number? 

pointer in directory 

load dir and find first entry 

not found? 
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D713 

1)0 

28 


liNE 

SD73D 


D715 

AO 

91 

02 

LOA 

$0291 


D718 

PO 

OC 


BEO 

$0726 


1)71 A 

C5 

81 


CMP 

$81 


1)7 IC 

PO 

IF 


BEO 

$0730 


D71K 

85 

81 


STA 

$81 


D7 20 

20 

60 

1)4 

JSR 

SD460 


D7 23 

4C 

30 

07 

JMP 

$1)730 


D7 26 

A9 

01 


[.DA 

#$01 


D728 

80 

92 

02 

STA 

$0292 


1)721» 

20 

17 

C6 

JSR 

SC617 


0721-: 

OO 

01) 


ONE 

$1)730 


D730 

20 

81) 

04 

JSR 

$1)480 


D733 

A5 

81 


LDA 

$01 


D7 35 

80 

91 

02 

STA 

$0291 


D73U 

A9 

02 


LOA 

#$02 


1)7 3A 

80 

92 

02 

STA 

$0292 


D73D 

AD 

92 

02 

LDA 

$0292 


D740 

20 

C8 

04 

JSR 

SD4C0 


D74 3 

68 



PLA 



D744 

80 

4A 

02 

STA 

$024A 


D747 

C9 

04 


CMP 

#$04 


D749 

DO 

02 


5NE 

$0740 


D74n 

09 

80 


ORA 

#$80 


D74D 

20 

FI 

CF 

JSR 

SCFFl 


D750 

68 



PLA 



D7 51 

OD 

80 

02 

STA 

$0280 


D754 

20 

FI 

CF 

JSR 

$CFF1 


D7S7 

68 



PLA 



D7511 

80 

85 

02 

STA 

$0285 


D75IJ 

20 

FI 

CF 

JSR 

$CFF1 


D75E 

20 

93 

DF 

JSR 

$DF9 3 


D761 

A8 



TAY 



D762 

AD 

7A 

02 

LDA 

$027A 


D766 

AA 



TAX 



D766 

A9 

10 


LOA 

#$10 


0760 

20 

6E 

C6 

JSR 

$C66E 


07 61) 

AO 

10 


LDY 

#S10 


0761) 

A9 

00 


LDA 

»$00 


07 6 F 

91 

94 


STA 

($94) 

,Y 

0771 

C8 



INY 



1)77 2 

CO 

IB 


CPY 

*$1H 


0774 

90 

F9 


lice 

$D76F 


1)776 

AD 

4A 

02 

LDA 

$024A 


0779 

C9 

04 


CMP 

#$04 


0775 

DO 

13 


RNE 

$0790 


0770 

AO 

10 


LDY 

#$10 


07 7 F 

AD 

59 

02 

LDA 

$0259 


0782 

91 

94 


STA 

($94) 

rY 

0704 

CB 



INY 



0785 

AD 

5A 

02 

LDA 

$025A 


0788 

91 

94 


STA 

($94) 

,Y 

D78A 

CO 



INY 




found? 

sector number in directory 
oqual zero 
equkl sector number? 
yes 

save sector number 
rcad block 


pointer to one 

find next entry in directory 
found? 

write directory block 
sector number 


pointer to 2 

set buffer pointer 

file type 
rei-file? 
no 

set bit 7 

and write in buffer 

following track 
in buffer 

following sector 

in buffer 

get buffer number 

pointer to drive number 

16I length of filename 
write filename in buffer 


fili with zeroes at pos 16 

position 27 already? 
no 

file type 

rei-file 

no 

track 


and sector 

thè side-sectors in dir entry 
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D78b 

AD 

58 

02 

LDA 

S0258 

D70E 

91 

94 


STA 

(S94) ,Y 

D790 

20 

64 

U4 

JSP 

SD464 

0793 

68 



PEA 


D794 

85 

82 


STA 

$82 

D796 

AA 



TAX 


D797 

68 



PLA 


D790 

85 

83 


STA 

$83 

D79A 

AD 

91 

02 

LDA 

$0291 

D79D 

85 

D8 


STA 

$D8 

D79F 

9D 

60 

02 

STA 

$0260,X 

D7A2 

AD 

92 

02 

LDA 

$0292 

D7A5 

85 

DD 


STA 

$DD 

D7A7 

9D 

66 

02 

STA 

$0266,X 

D7AA 

AD 

4A 

02 

LDA 

$024A 

D7AD 

85 

E7 


STA 

SE7 

D7AE 

A5 

7E 


LDA 

$7E 

D7U1 

85 

E2 


STA 

$i:2 

D7I)3 

60 



KTS 



******'4**44*********ll>********* 


D7B4 

A5 

83 


LDA 

$83 

D7D6 

8D 

4C 

02 

STA 

$024C 

D7U9 

20 

1)3 

C2 

JSR 

$C283 

D7BC 

8E 

2A 

02 

STX 

$022A 

D78E 

AE 

00 

02 

LDX 

$0200 

D7C2 

AD 

4C 

02 

LDA 

$024C 

D7C5 

DO 

2C 


DNE 

SD7F3 

D7C7 

EO 

2A 


CPX 

(l$2A 

D7C9 

DO 

28 


DNE 

$D7F3 

D7CB 

A5 

7E 


LDA 

$7 E 

D7CD 

FO 

4D 


BEO 

$D81C 

D7CF 

85 

80 


STA 

$80 

D7D1 

AD 

6E 

02 

LDA 

$026E 

D7D4 

85 

7F 


STA 

$7F 

D7D6 

85 

E2 


STA 

SE2 

D7Da 

A9 

02 


l,DA 

«$02 

D7DA 

85 

E7 


STA 

$E7 

D7DC 

AD 

6F 

02 

LDA 

$026F 

D7DF 

85 

81 


STA 

$81 

D7E1 

20 

00 

CI 

JSH 

$C100 

D7E4 

20 

46 

DC 

JSR 

$DC46 

D7E7 

A9 

04 


LDA 

#$04 

D7E9 

05 

7F 


ORA 

$7F 

D7EH 

A6 

82 


LDX 

$82 

D7ED 

99 

EC 

00 

STA 

$00EC,Y 

D7F0 

4C 

94 

CI 

JMP 

$C194 

D7F3 

EO 

24 


CPX 

«$24 

D7F5 

DO 

lE 


DNE 

$D815 

D7F7 

AD 

4C 

02 

LDA 

S024C 

D7FA 

DO 

03 


DNE 

$D7EF 

D7FC 

4C 

55 

DA 

JMP 

$DA65 

D7FE 

20 

DI 

CI 

JSR 

se IDI 


rocorci longth 
in directory 
write block 

channcl nuraber 


secondary address 


filo type 
drive numbor 


OPEN command, secondary adr <> IS 
secondary address 

gct line Icngth, crasc flags 

first character Crom buffer 
secondary address 
not equal 0 (tOAD)? 

I * t 

last track numbor 

track number 
last drive number 
drive number 


set data type to program 
last sector number 
sector 
turn LEb on 

allocate buffer, read block 

file type 

drive number 

channcl number 

set E lag 

donc 

no 

secondary address 
not C(|ual to zero? 

OPEN S 

analyze lino to end 
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D802 

AD 

85 

FE 

LDA 

$FE85 

D805 

85 

80 


STA 

$80 

D807 

A9 

00 


LDA 

«$00 

D809 

85 

81 


STA 

$81 

D80D 

20 

46 

OC 

JSI? 

SDC46 

D80K 

A5 

7F 


LDA 

$7F 

DB 10 

09 

02 


ORA 

#$02 

D812 

4C 

EU 

D7 

JMP 

$07 EH 

D815 

EO 

23 


CPX 

#$23 

noi? 

00 

12 


PNE 

$D82B 

D819 

'4C 

84 

CB 

JMP 

$CB84 

D81C 

A9 

02 


LDA 

#$02 

D81E 

80 

96 

02 

STA 

$0296 

D821 

A9 

00 


LDA 

#$00 

D8 23 

85 

7F 


STA 

$7F 

D825 

80 

8B 

02 

STA 

$028E 

D828 

20 

42 

DO 

JSR 

$0042 

D82B 

20 

E5 

CI 

JSR 

SC1E5 

D82E 

DO 

04 


BNE 

$0834 

0830 

A2 

00 


LDX 

#$00 

D832 

FO 

OC 


BEO 

$0840 

D834 

8A 



TXA 


08 35 

FO 

05 


BEO 

$D83C 

0837 

A9 

30 


LDA 

#$30 

0839 

4C 

C8 

CI 

JMP 

$C1C8 

08 3C 

88 



DEY 


0830 

FO 

01 


BEO 

$0840 

08 31' 

88 



DEY 


0840 

8C 

7A 

02 

STY 

$027A 

0843 

A9 

80 


LDA 

#$80 

0845 

20 

68 

C2 

JSR 

$C268 

0848 

E8 



INX 


0849 

8E 

78 

02 

STX 

$0278 

084C 

20 

12 

C3 

JSR 

$C312 

D84F 

20 

CA 

C3 

JSR 

$C3CA 

0852 

20 

90 

C4 

JSR 

$C49D 

0855 

A2 

00 


LDX 

#$00 

0857 

RE 

58 

02 

STX 

$0258 

08 5A 

8E 

97 

02 

STX 

$0297 

0850 

8 E 

4A 

02 

STX 

$024A 

0060 

E8 



INX 


0861 

EC 

77 

02 

CPX 

$0277 

0864 

HO 

10 


BCS 

$0876 

0866 

20 

09 

DA 

JSR 

SDA09 

0869 

E8 



INX 


08 6 A 

FC 

77 

02 

CPX 

$0277 

0060 

HO 

07 


BCS 

$0876 

D80F 

CO 

04 


CPY 

#$04 

0871 

FO 

3F 


BEO 

SD8B1 

087 3 

20 

09 

DA 

JSR 

$DA09 

D876 

AF 

4C 

02 

LDX 

$024C 

0879 

86 

83 


STX 

$83 


18, directory track 
track 

sector 0 

allocate buffer, road block 
drive number 

continue as abovo 

'#• 

open direct accese file 


file type program 

drive 0 

load BAH 
analyzc line 
colon found? 


comma found? 
no 

30, 'syntax orror' 


pointer to drive number 
shift CR 

analyze line to end 

comma counter 

get drive number 

check drive number 

find filo entry in directory 

default values 

record Icngth 

filo type 

comma before equal sign? 
no 

got filo type and control mode 

additional comma? 
no 


get file type and control method 
sccondary address 
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D87B 

EO 

02 


CPX 

#$02 


D87D 

BO 

12 


DCS 

$0891 


08 7 E 

8E 

97 

02 

STX 

$0297 


0882 

A9 

40 


LDA 

#$40 


0884 

80 

E9 

02 

STA 

$02F9 


0887 

AO 

4A 

02 

LDA 

$024A 


08 8A 

00 

10 


ONE 

$D8A7 


088C 

A9 

02 


LDA 

«$02 


D88E 

80 

4A 

02 

STA 

$024A 


0891 

AD 

4A 

02 

LDA 

$024A 


0894 

DO 

11 


DNE 

$D8A7 


0896 

AS 

E7 


LDA 

$E7 


0898 

29 

07 


ANO 

#$07 


089A 

80 

4A 

02 

STA 

$024A 


0890 

AO 

80 

02 

LDA 

$0280 


08 AO 

00 

OS 


BNE 

$D8A7 


onA2 

A9 

01 


LDA 

#$01 


08A4 

80 

4A 

02 

STA 

$024A 


08 A7 

AO 

97 

02 

LDA 

$0297 


OBAA 

C9 

01 


CHE 

#$01 


OltAC 

EO 

18 


BEO 

$D8C6 


oaAE 

4C 

40 

09 

JMI' 

$0940 


081)1 

BC 

7A 

02 

LOY 

$027A, 

,X 

081)4 

1)9 

00 

02 

LDA 

$0200, 

,Y 

081)7 

80 

SD 

02 

STA 

$02511 


08 HA 

AD 

81) 

02 

LDA 

$0280 


08 UO 

DO 

U7 


DNE 

$0876 


08 DE 

A9 

01 


I.DA 

#$01 


OSCI 

80 

97 

02 

STA 

$0297 


08 C4 

DO 

BO 


ONE 

$0876 


08 C6 

AS 

E7 


LDA 

$E7 


08 C8 

29 

80 


AND 

#$80 


08 C A 

AA 



TAX 



DBCn 

DO 

14 


BNE 

$D8E1 


OSCO 

A9 

20 


LDA 

»$20 


D8CE 

24 

E7 


BIT 

$E7 


0801 

EO 

06 


BEO 

$0809 


0803 

20 

B6 

C8 

JSR 

$C8B6 


0806 

4C 

i;3 

09 

JMP 

$09E3 


0809 

A9 

80 

02 

LDA 

$0280 


08 OC 

DO 

03 


BNE 

$D8B1 


OBOE 

4C 

E3 

09 

JMP 

$D9E3 


08E1 

AD 

00 

02 

LOA 

$0200 


08 E4 

C9 

40 


CMP 

#$40 


08E6 

EO 

OD 


BEO 

$D8E5 


08 E8 

8A 



TX A 



08 E9 

DO 

05 


DNE 

$D8E0 


D8EB 

A9 

63 


LDA 

#$63 


08 EO 

4C 

C8 

CI 

JMP 

$C1C8 


08 EO 

A9 

33 


LDA 

»$33 


08 F2 

4C 

CB 

CI 

JMP 

$C1C8 



grcator than 2? 
yes 

0 or 1 {LOAD or SAVE) 


file type 
not deleted 
PRG 

as file type 


get file type and command line 

track number 
not equal zero? 

file type scguential 
control mothod 
•W 
yes 


pointer behind second comma 
get vaine 
record lengtli 
track nuinbor 

' W 

as control method 


file type 

isolate wildcard flag 

wildcard in namc 

was filo closcd? 
yes 

byte 0 in buffer and write block 

track number of thè first block 
alroady existing 

first charactor frora input buffer 

' 0 ' ? 

yes 

wildcard set? 

63, 'file cxists' 

33, ’syntax error* 
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****************************** 


08 K5 

A5 

G7 


LDA 

$E7 

08 F7 

29 

07 


AND 

#S07 

08 F9 

CD 

4A 

02 

CMP 

S024A 

08 FC 

DO 

67 


UNB 

$D965 

08 FK 

C9 

04 


CMP 

*S04 

0900 

FO 

63 


BGO 

$0965 

0902 

20 

DA 

OC 

jsr< 

SDCDA 

0905 

A5 

82 


LDA 

$82 

0907 

80 

70 

02 

, STA 

$0270 

09 OA 

A9 

11 


LDA 

#$11 

O90C 

20 

GB 

DO 

JSR 

$00 ED 

0911 

AO 

94 

02 

LDA 

$0294 

0914 

20 

CB 

04 

JSR 

$D4C8 

0917 

AO 

00 


LDY 

#$00 

0919 

01 

94 


LDA 

($94) ,Y 

09111 

09 

20 


ORA 

#$20 

0910 

91 

94 


STA 

($94),Y 

09IF 

AO 

lA 


Loy 

#$1A 

0921 

A5 

80 


LDA 

$80 

09 23 

91 

94 


STA 

($94),Y 

09 25 

C8 



INY 


0926 

A5 

81 


LDA 

$81 

09 28 

91 

94 


STA 

($94) ,Y 

09 2 A 

AG 

70 

02 

LDX 

$0270 

0920 

A5 

08 


LDA 

$D8 

09 2 F 

90 

60 

02 

STA 

$0260,X 

0932 

A5 

DO 


LDA 

$DD 

0934 

90 

66 

02 

STA 

$0266,X 

0937 

20 

3B 

DB 

JSR 

SDE3D 

09 3A 

20 

64 

04 

JSR 

$0464 

0930 

4C 

GF 

09 

JMP 

$09EF 

0940 

AD 

80 

02 

LOA 

$0280 

0943 

00 

05 


BNG 

$D94A 

0945 

A9 

62 


LDA 

«$62 

0947 

4C 

C8 

CI 

JMP 

SC1C8 

09 4 A 

AO 

97 

02 

LDA 

$0297 

094 0 

C9 

03 


CMP 

«$03 

09 4 F 

FO 

OH 


BEO 

$D95C 

0951 

A9 

20 


LDA 

«$20 

0953 

24 

B7 


HIT 

$E7 

D955 

FO 

05 


BEO 

$D95C 

0957 

A9 

60 


LDA 

#$60 

0959 

4C 

C8 

CI 

JMP 

#SC1CB 

09 5C 

A5 

G7 


LDA 

$K7 

09 5 IO 

29 

07 


AND 

#$07 

0960 

CO 

4A 

02 

CMP 

S024A 

0963 

FO 

05 


BEO 

$096A 

0965 

A9 

64 


LDA 

#S64 

0967 

4C 

CH 

CI 

JMP 

SC1C8 

09 6A 

AO 

00 


LDY 

#$00 

09 6 C 

8C 

79 

02 

STY 

$0279 

0961' 

AG 

97 

0 2 

LDX 

$0297 

097 2 

F.O 

02 


CPX 

#S02 


open a file with ovorwriting 

file typo 

isolate 

file type different? 
rol-file? 

64, 'file type mismatch' 


save channcl numbcr 

open read channol 

set buffer pointer toc directory 

file type 

set bit 5, open filo 


track 


and sector 

for open with at-sign 
channel number 

pointer to directory block 


get track and sector ' number 
write block 

prepare trk, sector, and drive # 

first track numbcr 
file not erased? 

62, 'file not found' 
control mode 

'M' 

yes,then no test of unclosed filo 
bit 5 

test in file type 
not set, ok 

60, 'write file open' 

isolate file type 


64, 'filo type minmatch' 


control modo 
'A', append 
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D974 

OO 

lA 


ONE 

$0990 

D976 

C9 

04 


CMP 

#S04 

D978 

FO 

EB 


BEO 

$0965 

D97A 

B1 

94 


LDA 

($94) ,Y 

D97C 

29 

4F 


AND 

#$4F 

D97E 

91 

94 


STA 

($94) ,Y 

D980 

A5 

03 


LDA 

$83 

D90 2 

48 



PIIA 


D903 

A9 

11 


LDA 

«SII 

D985 

85 

83 


STA 

$83 

D987 

20 

3B 

DE 

JSR 

$DE3n 

D98A 

20 

64 

04 

JSR 

$0464 

D981) 

68 



PLA 


D90E 

85 

83 


STA 

$83 

D990 

20 

AO 

09 

JSR 

$D9A0 

D99 3 

AD 

97- 

02 

LDA 

$0297 

D996 

C9 

02 


CMP 

#$02 

D998 

DO 

55 


BNE 

$D9EF 

D99A 

20 

2A 

DA 

JSR 

$DA2A 

D99D 

4C 

94 

CI 

JMP 

SC194 

D9A0 

AO 

13 


LDA 

#$13 

D9A2 

111 

94 


LDA 

($94) ,Y 

D9A4 

80 

59 

02 

STA 

$0259 

D9A7 

C8 



INY 


D9A8 

B1 

94 


LDA 

($94) ,Y 

D9AA 

80 

5A 

02 

STA 

$025A 

D9AD 

C8 



INY 


D9AE 

Bl 

94 


LDA 

($94) ,Y 

D9B0 

AE 

58 

02 

LDX 

$0258 

D9li3 

80 

58 

02 

STA 

$0258 

09116 

BA 



TXA 


09 B7 

FO 

OA 


BEO 

SD9C3 

09119 

CD 

58 

02 

CMP 

#$0258 

09 BC 

FO 

05 


BEO 

$D9C3 

09 BE 

A9 

50 


LDA 

#S50 

09 CO 

20 

C8 

CI 

JSR 

$C1C8 

09C3 

AE 

79 

02 

LDX 

$0279 

09C6 

BD 

80 

02 

LDA 

$0280,X 

09 C9 

85 

80 


STA 

$80 

09CB 

HO 

85 

02 

LDA 

$0285,X 

09 CE 

85 

81 


STA 

$81 

0900 

20 

46 

OC 

JSR 

$0C46 

0903 

A4 

82 


LOY 

$82 

0905 

AE 

79 

02 

I.DX 

$0279 

0908 

1)5 

DO 


LDA 

$08 ,X 

09 OA 

99 

60 

02 

STA 

$0260,Y 

0900 

1)5 

DO 


LDA 

S DO, X 

09 OF 

99 

66 

02 

STA 

$0266,Y 

09E2 

60 



RTS 


09 E 3 

A5 

E2 


LDA 

SE2 

09 E5 

29 

01 


AND 

#$01 

09 F7 

85 

7F 


STA 

S7F 

09 (•;9 

20 

DA 

OC 

JSR 

SOCDA 


no 

rei-file? 


channel 17 

gol. track and sector number 
wrlte block 

get channel # back 

control mode 

done 

track 

record length 
last record len 

50, 'record not presont' 

track 

sector 

drive (t 


168 



I SEGRETI DEL 1541 


D9KC 

20 

E4 

06 

JSR SD6E4 


D9K1'- 

A5 

83 


EDA $83 

channel # 

D9F1 

C9 

02 


CMP #502 


D9K3 

BO 

11 


BCS SDA06 


D9l''5 

20 

3 E 

DE 

J.SR $DE3E 


D9 h'8 

A5 

80 


EDA $80 


D9 FA 

85 

7 E 


STA $7E 


D9FC 

A5 

7F 


EDA $7F 


D9FE 

RD 

6 E 

02 

STA S026E 


DAOl 

A5 

81 


EDA $81 


DA03 

8D 

6F 

02 

STA S026F 


DAOf, 

4C 

99 

CI 

JMP $C199 



check file type and control mode 

DA09 

BC 

7A 

02 

EDY $027A,X 

pointer in comntand line 

DAOC 

n9 

00 

02 

EDA $0200,Y 

get characters frora line 

nAOF 

AO 

04 


EDY #$04 


DAll 

8Q 



DEY 


nA12 

30 

08 


BMI $DA1C 


DAI 4 

D9 

B2 

FE 

CH1> $FEB2,Y 

control inodes ’R', ’W, ’A', 'M' 

DAI? 

DO 

FO 


BNE $DA11 


DAI 9 

8C 

97 

02 

STY $0297 

save 

DAIC 

AO 

05 


l.OY #S05 


DAI E 

88 



DEY 


DAIF 

30 

08 


BMI $DA29 


DA 21 

D9 

1)6 

FE 

CMP $FEB6,Y 

file types 'D', ' S', ’ P',’U', ' E' 

DA24 

DO 

FO 


BNE SDAIE 


DA26 

OC 

4A 

02 

STY $024A 

save 

DA29 

60 



RTS 


****************************** 

preparation for Appcnd 

DA2A 

20 

39 

CA 

JSR $CA39 

open channel to read, get byte 

DA2D 

A9 

80 


EDA #$80 


DA2F 

20 

A6 

DD 

JSR $DDA6 

last byte? 

DA32 

FO 

F6 


BEO $DA 2A 

no 

DA34 

20 

95 

DE 

JSR $DE95 

get track and sector nuitiber 

DA37 

A6 

81 


EDX $81 

sector number 

DA39 

88 



INX 


DA 3 A 

8A 



TXA 


DA3U 

DO 

05 


BNE $DA42 

not $FF? 

DA3D 

20 

A3 

DI 

JSR $D1A3 

dose buffer, write block 

DA40 

A9 

02 


EDA #$02 


DA4 2 

20 

C8 

D4 

JSR $D4C8 

buffer pointer to 2 

DA45 

A6 

82 


EDX $82 

channel number 

DA47 

A9 

01 


EDA #$01 


DA49 

95 

F2 


STA $F2,X 

set flag for WRITE 

DA4n 

A9 

80 


EDA #S80 


DA4D 

05 

02 


ORA $82 


DA4F 

■ A6 

03 


EDX $83 


DA51 

9D 

2n 

02 

STA S022B,X 

channel number in table 

DA54 

60 



RTS 



OPEN "$" 

DA55 

A9 

OC 


EDA #$0C 

command number 12 

DA57 

8D 

2A 

02 

STA $022A 



169 



I SEGRETI DEL 1541 


DA5A 

A9 

00 


LDA 

#SOO 

DA5C 

AE 

74 

02 

LDX 

S0274 

DA5F 

CA 



DEX 


DA60 

FO 

OD 


BEO 

$DA6D 

DA62 

CA 



DEX 


DA63 

DO 

21 


BNB 

$DA86 

DA65 

AD 

01 

02 

LDA 

$0201 

DA6B 

20 

DD 

C3 

JSR 

$C3BD 

DA6U 

30 

19 


BMI 

$DA86 

DA6D 

85 

E2 


STA 

$E2 

DA6F 

EE 

77 

02 

INC 

$0277 

DA72 

EE 

78 

02 

INC 

$0270 

DA75 

EE 

7A 

02 

INC 

$027A 

DA78 

A9 

80 


LDA 

#$80 

DA7A 

85 

E7 


STA 

$E7 

DA7C 

A9 

2A 


LDA 

#$2A 

DA7E 

8D 

00 

02 

STA 

$0200 

DA81 

8D 

01 

02 

STA 

$0201 

DA84 

DO 

18 


BNE 

$DA9E 

DA86 

20 

E5 

Cl 

JSR 

$C1B5 

DA89 

DO 

05 


BNE 

$DA90 

DA8B 

20 

DC 

C2 

JSR 

$C2DC 

DASB 

AO 

03 


LDV 

»$03 

DA90 

88 



DEY 


DA91 

88 



DEY 


DA92 

8C 

7A 

02 

STY 

$027A 

DA95 

20 

00 

C2 

JSR 

$C200 

DA98 

20 

98 

C3 

JSR 

$C390 

DA9n 

20 

20 

C3 

JSR 

$C320 

DA9E 

20 

CA 

C3 

JSR 

SC3CA 

DAAl 

20 

B7 

C7 

JSR 

SC7B7 

DAA4 

20 

9D 

C4 

JSR 

SC49D 

DAA7 

20 

9 E 

EC 

JSR 

$EC9E 

DAAA 

20 

37 

DI 

JSR 

SD137 

DAAD 

A6 

82 


LDX 

$82 

DAAF 

9D 

3E 

02 

STA 

$023E 

DAU2 

A4 

7F 


LDA 

$7F 

DAD4 

OD 

8E 

02 

STA 

$020E 

DAD7 

09 

04 


ORA 

#$04 

DAD9 

95 

EC 


STA 

$EC,X 

DABB 

A9 

00 


LDA 

#$00 

DAllD 

85 

A3 


STA 

$A3 

DAUF 

60 



RTS 



****************************** 


DACO 

A9 

00 


LDA 

#$00 

DAC2 

8D 

F9 

02 

STA 

$02 F9 

DAC5 

A5 

83 


LDA 

$83 

DAC7 

DO 

08 


ONE 

$DAD4 

DAC9 

A9 

00 


LDA 

«$00 

DACB 

•8D 

54 

02 

STA 

$0254 

DACE 

20 

27 

02 

JSR 

$D227 

DADI 

4C 

DA 

D4 

JMP 

SD4DA 

DAD4 

C9 

OF 


CMP 

#$0F 


second charactor 
got drive nuniber 
not a plain numbet? 


set wildcard flag 

I * I 

as file narao in command buffer 

absolute jump 
test input line to 
found? 
erase flags 


pointer to drive no. in command 

analyze line 

ascortain filo type 

get drive number 

initialize drive if necessary 

preparo disk title 

load directory 

create and prepare directory 
get byte from buffer 
channol number 
byte in output register 
drive number 

savo as last drive number 
PRG-flag 

set pointer back in input buffer 


CLOSF-routine 


socondary address 
not zero? 

secondary address 0, LOAD 
doso channel 

dose internai channels 17 & IR 
15 
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DAD6 

FO 

14 


BEO 

$DAEC 

DAD8 

20 

02 

DB 

JSK 

$DB02 

DADB 

A5 

83 


LDA 

$03 

DADO 

C9 

02 


CMP 

#$02 

DADI-' 

90 

FO 


BCC 

$DAD1 

DAKl 

AO 

6C 

02 

LOA 

$026C 

DA 1^4 

00 

03 


UN E 

$DAE9 

UABB 

4C 

94 

Cl 

JMP 

$C194 

DAE9 

4C 

AD 

CI 

JMP 

$C1AD 

DAEC 

A9 

OE 


I.DA 

#$0E 

DAi;i2 

85 

83 


STA 

$83 

DAFO 

20 

02 

DB 

JSR 

$DB02 

DAF3 

C6 

83 


DEC 

$83 

DAF5 

10 

F9 


BPL 

$DAF0 

DAF7 

AD 

6C 

02 

LDA 

$026C 

DAFA 

DO 

03 


•BNE 

$DAFF 

DAFC 

4C 

94 

Cl 

JMP 

$C194 

DAFF 

4C 

AD 

Cl 

JMP 

$C1AD 

******************* fi,*******» 

DB02 

A6 

83 


LDX 

$83 

01)04 

DO 

2 n 

02 

LDA 

$022B,X 

DB07 

C9 

FF 


CMP 

#$FF 

0009 

DO 

01 


BNE 

$DB0C 

OBOI) 

60 



RTS 


DIJOC 

29 

OF 


AND 

#$0F 

OBOE 

85 

82 


STA 

$82 

DBIO 

20 

25 

DI 

JSR 

$0125 

DB13 

C9 

07 


CMP 

#$07 

OHI 5 

FO 

OF 


BEO 

$DB26 

DUI 7 

C9 

04 


CMP 

#$04 

DB19 

FO 

11 


BEO 

$DB2C 

DBIB 

20 

07 

DI 

JSR 

$D107 

01)1 E 

BO 

09 


BCS 

$DB29 

OB20 

20 

62 

DB 

JSR 

$DB62 

OH23 

20 

A5 

DB 

JSR SDBA5 

01)26 

20 

F4 

EE 

JSR 

$EEF4 

OU29 

4C 

27 

02 

JMP 

$0227 

0H2C 

20 

FI 

DO 

JSR 

$DDF1 

0B2F 

20 

lE 

CF 

JSR 

SCFIE 

01)3 2 

20 

CB 

E1 

JSR 

$E1CB 

DB35 

A6 

05 


LDX 

$D5 

01)37 

86 

73 


STX 

$73 

01)39 

E6 

73 


TNC 

$73 

01)31) 

A9 

00 


LDA 

#$00 

0B3D 

85 

70 


STA 

$70 

003 F 

85 

71 




0B41 

A5 

06 


LDA 

$D6 

01)4 3 

38 



SEC 


OB44 

E9 

OE 


SBC 

#S0E 

0)46 

85 

72 


STA 

$72 

OB4I1 

20 

51 

DE 

JSR 

$DF51 


yes, dose all channels 
dose file 
secondary address 

smaller than 2? 


termination 


14 

secondary address 
dose file 

next secondary address 


termination 


dose file 
secondary address 
get channcl number 
no channel associatcd? 

no, then done 

isolate channel number 

check data type 
direct acccss? 
yes 

rei-file? 

yes 

channel for writing open 
no file for writing? 
write last block 
write entry in dir and block 
write BAH 
dose channcl 

get buffer number, write block 
change buffer 
get last sido-sector 
side-soctor number 


minus 14 for pointer 
calculatc block number of file 
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DI14D 

A6 

82 


LDX 

S82 

Dk)4D 

A5 

70 


LUA 

$70 

Dli4K 

95 

D5 


STA 

$B5,X 

DI151 

A5 

71 


LDA 

$71 

Dli53 

95 

BB 


STA 

$BB,X 

DB55 

A9 

40 


LDA 

#$40' 

DU57 

20 

A6 

DD 

JSU 

$DDA6 

DI15A 

FO 

03 


BEO 

$DB5F 

DU5C 

20 

A5 

DB 

JSR 

$DDA5 

DB5K 

AC 

27 

D2 

JMP 

$D227 


DBfi2 

A6 

82 


LDX 

$82 

DB64 

n5 

B5 


LDA 

$05,X 

Dt)66 

15 

BB 


ORA 

$BB,X 

DU68 

DO 

OC 


ONE 

$DB76 

DBf.A 

20 

E8 

D4 

JSR 

SD4E8 

DB6D 

C9 

02 


CMP 

#$02 

DB6F 

DO 

05 


BNE 

$DB76 

DB71 

A9 

OD 


LDA 

#$0D 

DB73 

20 

FI 

CF 

JSR 

$CFF1 

DB76 

20 

E8 

D4 

JSR 

$D4E8 

DB79 

C9 

02 


CMP 

#$02 

DB7n 

DO 

OF 


BNE 

$DBRC 

DU7D 

20 

lE 

CF 

JSR 

$CF1E 

DBOO 

A6 

82 


LDX 

$82 

DBS 2 

B5 

B5 


LDA 

$B5,X 

DBS 4 

DO 

02 


BNE 

$DD88 

DBS 6 

D6 

BB 


DEC 

$BB,X 

DBSS 

D6 

B5 


DEC 

$B5,X 

DU8A 

A9 

00 


LDA 

#$00 

DB8C 

38 



SEC 


DB8D 

E9 

01 


SBC 

#$01 

DB8F 

48 



PHA 


DB90 

A9 

00 


LDA 

#$00 

DB92 

20 

C8 

D4 

JSR 

$D4C8 

DB95 

20 

FI 

CF 

JSR 

$CFF1 

DB9B 

68 



PLA 


DB99 

20 

FI 

CF 

JSR 

$CFF1 

DB9C 

20 

C7 

DO 

JSR 

$ D0C7 

DB9F 

20 

99 

D5 

JSR 

$D599 

DBA2 

4C 

lE 

CF 

JMP 

$CF1B 


DBA5 

A6 

02 


LDX 

$8 2 

DBA7 

SE 

70 

02 

STX 

$0270 

DBAA 

A5 

83 


LDA 

$83 

DBAC 

48 



PHA 


DBAD 

BD 

60 

02 

LDA 

$0260,X 

DBBO 

85 

81 


OTA 

$81 

DBB2 

BD 

66 

02 

LDA 

$0266,X 

DBBS 

8D 

94 

02 

STA 

$0294 

DBBS 

B5 

liC 


LDA 

$EC,X 

DBOA 

29 

01 


AND 

#$01 

DBBC 

85 

7F 


STA 

$7F 


channol number 

record number lo 

record number hi 

bit 6 set? 
no 

enter in dirctory 
dose channel 

writo last block 
channel number 
record number lo 
record number hi 
not zero? 

set buffer pointer 

not 2 
CR 

in buffer 

set buffer pointer 
now equal to 2? 
no 

change buffer 
channel number 
record number lo 

decrement block number hi 
and block number lo 


set pointer to end 


buffer pointer to zero 

write zero in buffer 

second byte = pointer to end 

write in buffer 

writo block to disk 

and verify 

change buffer 

directory entry 
channel number 
savo 

secondary address 
save 

sector number in directory 
set 

pointer in directory 


drive number 
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DHOB 

AD 

85 

FE 

LDA 

SFE85 

DDCl 

85 

80 


STA 

$80 

DBC3 

20 

93 

DF 

JSR 

SDF93 

DfJCe 

48 



PHA 


DUC7 

85 

F9 


STA 

$F9 

DBC9 

20 

60 

D4 

JSB 

SD400 

DBCC 

AO 

00 


LDT 

#S00 

DUCE 

BO 

EO 

FE 

LDA 

$FEE0,X 

Dltnl 

85 

87 


STA 

$87 

DBD3 

AD 

94 

02 

LDA 

$0294 

DBD6 

85 

86 


STA 

$86 

DBDO 

1)1 

86 


LDA 

($86) ,Y 

DBDA 

29 

20 


AND 

#$20 

DBDC 

FO 

43 


BEO 

$DC21 

DBDE 

20 

25 

DI 

JSR 

SDÌ 25 

DBEl 

C9 

04 


CMP 

#$04 

DBE3 

FO 

44 


BEO 

$DC29 

DBE5 

1)1 

86 


LDA 

($86) ,Y 

DBE7 

29 

8F 


AND 

#$BF 

DBE9 

91 

86 


STA 

($86) ,Y 

DBEB 

e8 



INY 


DBEC 

B1 

86 


LDA 

($86) ,Y 

DBEE 

85 

80 


STA 

$80 

DBEO 

84 

71 


STY 

$71 

DBF2 

AO 

in 


LDY 

#$in 

DBl'4 

1)1 

86 


LDA 

($86),Y 

DUE6 

48 



l’IlA 


DBF7 

88 



DEY 


DBF8 

B1 

86 


LDA 

($86) ,Y 

ni) FA 

DO 

OA 


BNE 

$DC06 

DBFC 

85 

80 


STA 

$80 

DBFF. 

68 



PLA 


DBFF 

85 

81 


STA 

$81 

DCOl 

A9 

67 


LDA 

#$67 

DC03 

20 

45 

E6 

JSR 

$E645 

DC06 

48 



PHA 


nC07 

A9 

00 


LDA 

#$00 

DC09 

91 

86 


STA 

($86) ,Y 

ncoB 

e8 



INY 


DCOC 

91 

86 


STA 

($86) ,Y 

ncOE 

68 



PLA 


ncoF 

A4 

71 


LDY 

$71 

DCl 1 

9 1 

86 


STA 

($86),Y 

nei 3 

e8 



INY 


nci4 

1)1 

86 


LDA 

($86) ,Y 

ncif. 

8 5 

81 


STA 

$81 

nell) 

68 



PLA 


ne 19 

91 

86 


STA 

($86),Y 

nell) 

20 

7D 

ca 

JSR 

$C87D 

nei E 

4C 

29 

ne 

JMP 

SDC29 

DC21 

Bl 

86 


LDA 

($86),Y 

oc 2 3 

29 

OF 


AND 

#$0F 

DC25 

09 

80 


ORA 

#$B0 

DC27 

91 

1)6 


STA 

($86),Y 


Ifi, directory Lrtick 
set 

increment buffer number 


reaci directory block 

buffer address 

buffer pointer 

filo type 
file closed? 
yes 

check file type 

rei-file? 

yes 

crasc bits 4,5, and 6 
in file type 

track number 


soctor « of thè filo for 
ovorwriting 

track # for ovorwriting 
set? 

set track number 
soctor number 

67, ’illcgal track or sector’ 


erase track number 

and soctor number of thè 
substituto filo 


set track 6 soc II of tho ncw filo 


erase all fiIcs 


got file type 

isolate bits 0-3 

set bit 7 for closed file 
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channol nutnber 

block number lo 
in directory entry 

and block nunber hi 
write 

buffer number 

code for 'writing' 
write block 

secondary address 
open channol for writing 

read block, layout buffer 


DC29 

AB 

70 

02 

LDX 

$0270 

DC2C 

AO 

IC 


LDY 

tt$ic 

DC2E 

U5 

05 


EDA 

$05,X 

DC30 

91 

86 


STA 

($86) ,Y 

DC32 

C8 



INY 


DC33 

1)8 

00 


LDA 

$00, Y 

DC35 

91 

86 


STA 

($86) ,Y 

DC37 

68 



PLA 


DC38 

AA 



TAX 


DC39 

A9 

90 


LDA 

#$90 

DC3H 

20 

90 

D5 

JSR 

$D590 

DC40 

68 



PLA 


DC41 

85 

83 


STA 

$83 

DC4 3 

4C 

07 

DI 

JMP 

$D107 

h 1t h h h 

A************'***********] 

DC46 

A9 

01 


LDA 

#$01 

DC48 

20 

E2 

DI 

JSR 

$D1E2 

DC4U 

20 

06 

DC 

JSR 

$DC06 

DC4 E 

Al) 

4A 

02 

t-DA 

$024A 

DC51 

48 



PHA 


DC52 

OA 



ASI, 

A 

DC53 

05 

7F 


ORA 

$7F 

DC55 

95 

EC 


STA 

$EC,X 

DC97 

20 

90 

DO 

JSR 

$D090 

DC5A 

A6 

82 


LDX 

$82 

0C5C 

A5 

80 


LDA 

$80 

DC5IJ 

DO 

05 


ONE 

SDC65 

DC60 

A5 

81 


LDA 

$81 

DC62 

9D 

44 

02 

STA 

$0244,X 

DCfiS 

68 



PLA 


DC66 

C9 

04 


CM1> 

#S04 

DC6H 

DO 

3F 


ONE 

$DCA9 

DC6A 

A4 

83 


I.DA 

$83 

DC6C 

119 

20 

02 

LDA 

$0220,Y 

PC61' 

09 

40 


ORA 

#$40 

l)C7 1 

99 

20 

02 

STA 

$0220,Y 

l)C74 

AD 

58 

02 

I.DA 

$0258 

DC77 

95 

C7 


STA 

SC7,X 

DC79 

20 

8E 

U2 

JSR 

$D28E 

DC7C 

10 

03 


OPL 

$DC81 

nC7K 

4C 

OF 

D2 

JMP 

$D20F 

DC81 

A6 

82 


LDX 

$82 

DC83 

95 

CD 


STA 

$CD,X 

DC85 

AC 

59 

02 

LDY 

$0259 

PCU8 

84 

80 


STY 

$80 

DC8A 

AC 

5A 

02 

LDA 

$025A 

DC8D 

84 

81 


STY 

$81 

DC8F 

20 

D3 

D6 

JSR 

$D6D3 

DC92 

20 

73 

DE 

JSR 

$DE73 

DC95 

20 

99 

D5 

JSR 

$D599 

DC98 

A6 

82 


LDX 

$82 

DC9A 

A9 

02 


LDA 

#$02 

DC9C 

95 

CI 


STA 

SCI ,X 


find channel and buffer for read 
set pointer 
file type 
savo 


set flag for RliAI) and WKITK 
record longth 

find buffer for nide-sector 
found? 

70, 'no channel* 
channol number 


track for sido-sector 

soctor for sldo-soctor 

transmit parameters to disk cont. 

read block 

and vorify 

channel number 

pointer for writing 


drive number 

read block in buffer 
channel number 
track 

followinij track? 
sector 

as end pointer 
file type 
rei-file? 
no 

secondary address 
channel number 
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DC9E 

A9 

00 


LDA 

#$00 

DCAO 

20 

C8 

D4 

JSR 

$D4C8 

DCA3 

20 

53 

RI 

JSR 

SE153 

DCA6 

4C 

3 E 

DE 

JMP 

SDE3R 

DCA9 

20 

56 

DI 

JSR 

$0156 

DCAC 

Af, 

(12 


LDX 

$82 

DCAR 

91) 

3R 

02 

STA 

S023E,X 

bChl 

A9 

a» 


EDA 

«$88 

DCI>3 

99 

l■■2 


STA 

$R2,X 

DCB5 

60 



RTS 





DC 86 

A6 

8 2 


bDX 

$82 

DCllO 


A7 


l.UA 

SA7,X 

DCBA 

OA 



ASL 

A 

iJOUi 

A8 



TAY 


DCHC 

A9 

02 


I.DA 

#$02 

DCBR 

99 

99 

00 

STA 

$0099,Y 

DCCl 

B5 

AR 


I.DA 

$AE,X 

DCC3 

09 

80 


ORA 

«$80 

DCC5 

95 

AR 


STA 

SAE,X 

DCC7 

OA 



ASL 

A 

DCC8 

AB 



TAY 


DCC9 

A9 

02 


LDA 

#S02 

DCCB 

99 

99 

00 

STA 

$0099, Y 

DCCE 

A9 

00 


LDA 

#S00 

DCDO 

95 

1)5 


STA 

$B5,X 

DCD2 

95 

BB 


STA 

$BB,X 

DCD4 

A9 

00 


LDA 

#S00 

DCD6 

9D 

44 

02 

STA 

$0244,X 

DCP9 

60 



RTS 


*******************1**********] 

DCDA 

20 

A9 

FI 

JSR 

SF1A9 

DCDD 

A9 

01 


I.DA 

#$01 

DCDR 

20 

DR 

DI 

JSR 

SDIDF 

DCR2 

20 

DO 

06 

JS» 

$D6d0 

DCR5 

20 

B6 

DC 

JSR 

$DCB6 

DCR8 

A6 

82 


LDX 

$82 

DCEA 

AH 

4A 

02 

LDA 

$024A 

DCRD 

48 



PHA 


OCRE 

OA 



ASL 

A 

DCRR 

05 

7R 


ORA 

$7F 

DCl'l 

95 

RC 


STA 

SEC,X 

OCR 3 

68 



PLA 


DCR4 

C9 

04 


CMP 

#S04 

DCR6 

RO 

05 


HLO 

$DCRD 

DCR8 

A9 

01 


LDA 

#$Ol 

OCRA 

95 

R2 


STA 

$R2,X 

DCRC 

60 



RTS 


DCRD 

A4 

83 


r.DY 

$83 

DCRR 

B9 

2B 

02 

LDA 

$0221), Y 

DD02 

29 

3R 


AMD 

«SIF 


buffer pointer to zero 

find next record 

get track and sector nutnber 


open channel 

transmit param to disk controller 
reset pointer 
channel number 
file type 


drive number 
save as flag 

rol-tilo? 

yes 

set WRITE flag 

secondary address 
channel number in table 
erase thè top two bits 


get byte frora buffer 
channel number 
byte in output register 
set flag for RRAI) 


reset pointer 
channel number 
bui:tur number 
timos 2 


buffer pointer lo 
set bit 7 


buffer pointer lo 

block number lo 
block number hi 

end pointer 


construct a new block 
find freo sector in BAM 
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DD04 

09 

40 


ORA 

#S40 

set bit 6 

DD06 

99 

28 

02 

STA 

S022H,V 

READ and WRITE flag 

Dl)09 

AD 

58 

02 

EDA 

$0258 

record length 

DDOC 

96 

C7 


STA 

$C7,X 

in tablc 

DUO e: 

20 

UH 

D2 

JSR 

$D28E 

find buffer 

UDII 

10 

03 


DEL 

$DD16 

found? 

DD13 

4C 

OF 

D2 

JMP 

$D20F 

70, 'no channol' 

DUI 6 

A6 

82 


LDX 

$82 

channel number 

DD18 

96 

CD 


STA 

$CD,X 

buffer number for side-.sector 

ODIA 

20 

CI 

DE 

JSR 

$DEC1 

erase buffer 

DDID 

20 

IH 

FI 

JSR 

$F11E 

find froe block in BAH 

DD20 

A5 

80 


EDA 

$80 

track 

DD22 

8D 

59 

02 

STA 

$0259 

for side-soctor 

DD25 

A5 

81 


I.DA 

$81 

sector 

DD27 

8D 

5A 

02 

STA 

$025A 

for side-sector 

DD2A 

Af. 

82 


LDX 

$82 

channel nutnber 

DD2C 

Ii6 

CD 


EDA 

$CD,X 

buffer number 

DD2E 

20 

D3 

D6 

JSR 

SD6D3 

transmit param to disk controller 

DD31 

A9 

00 


EDA 

ttsoo 

DD33 

20 

H9 

DE 

JSR 

SDRE9 

buffer pointer to zero 

OD36 

A9 

00 


EDA 

»$00 

DD38 

20 

8D 

OD 

JSR 

SDD8D 


DD3U 

A9 

11 


EDA 

(t$ll 

17 

DD3D 

20 

8D 

DD 

JSR 

S DD8 D 

as end pointer in buffer 

DD40 

A9 

00 


EDA 

#$00 

zero 

DD‘l 2 

20 

UD 

DD 

JSR 

S DD8 D 

as side-soctor number in biffcr 

DD45 

AD 

58 

02 

EDA 

$0258 

record length 

DD4H 

20 

UD 

DD 

JSR 

$ DD8 D 

in buffer 

DD'in 

A5 

80 


EDA 

$80 

track number of this block 

DD'in 

20 

UD 

DD 

JSR 

$DD8D 

in buffer 

DDSO 

A6 

81 


EDA 

$81 

sector number 

DD82 

20 

UD 

DD 

JSR 

SDDBD 

in buffer 

DD55 

A9 

10 


EDA 

»$10 

16 

DD57 

20 

1:9 

DE 

JSR 

$DEE9 

buffer pointer to 16 

DD5A 

20 

31-: 

DE 

JSR 

$DE3E 

get track and sector number 

DD5D 

A6 

80 


I.DA 

$80 

track « of thè first data block 

DD5E 

20 

HD 

DD 

JSR 

SDDBD 

in buffer 

DD62 

A6 

81 


EDA 

SUI 

sector « of thè first dota block 

Dl)f)4 

20 

no 

DD 

JSR 

SDORD 

in buffer 

DD67 

20 

6C 

DE 

JSR 

SDEfiC 

write block to disk 

DD6A 

20 

99 

D5 

JSR 

SD599 

and check 

DD6D 

A9 

02 


IJIA 

«$02 


DURI' 

20 

CU 

D4 

JSR 

$D4C8 

buffer pointer to 2 

DD72 

A6 

82 


EDX 

$8 2 

channel number 

DD7 4 

38 



SEC 



l)D75 

A9 

00 


EDA 

«SOO 


DD77 

F5 

C7 


SOC 

$C7,X 

record length 

DD79 

95 

CI 


STA 

SCI ,X 

pointer for writing 

DD7n 

20 

E2 

K2 

JSR 

$E2E2 

erose buffer 

DD7I3 

20 

19 

DE 

JSR 

$DE19 

write link hytes in buffe.r 

DD81 

20 

5F 

DE 

JSR 

SPESE 

write block to disk 

DD84 

20 

99 

D5 

JSR 

SD599 

and check 

DD87 

20 

l'^ 

EE 

JSR 

$EEF4 

write HAM 

DD8A 

4C 

98 

UC 

JMP 

$DC9H 

ami dono 
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****************************** 

write byte in side-sector block 

nooD 

4a 


PlIA 

save byte 

DDU E 

A6 

02 

EDX $82 

channel number 

DD90 

05 

CD 

t.DA $CD,X 

buffer # of thè side-sector 

DD9 2 

4C 

ED CE 

JMP SCEFD 

write byte in buffer 


manipulatc flags 

I3D95 

90 

06 

nCC $DD9D 

I3D97 

A6 

02 

LDX $82 

channel number 

DD99 

15 

EC 

ORA SEC,X 

set flag 

DD9n 

DO 

06 

13NE SODA3 


DD9D 

AO 

02 

LDX $82 

channel number 

DD9E 

49 

E E 

liOR |($FF 


DUAl 

35 

EC 

AND SEC,X 

erase flag 

DDA3 

95 

KC 

STA SEC,X 


DOA5 

60 


RTS 


DDAC) 

A6 

02 

T,DX $82 

channel number 

DDAH 

35 

e:c 

AND $EC,X 

test flag 

DDAA 

60 


RTS 


********.*.*».»»»..»***»,,*..* 

check coraroand code for writing 

DDAB 

20 

93 DE 

JSR SDF93 

get buffer number 

DO A E 

AA 


TAX 


DDAE 

OD 

5B 02 

EDA $0250,X 


DDIt2 

29 

EO 

AND ItSEO 

isolate command code 

DD1!4 

C9 

90 

CMP #$90 

code for writing? 

DDH6 

60 


RTS 


****************************** 


001)7 

A2 

00 

LDX #S00 


Dni)9 

06 

71 

ST'X $71 

countor for secondary address 

ODI)» 

OD 

213 02 

LDA S022B,X 

get channel number from tahlo 

DDDE 

CO 

FE 

CMR #$EE 


DDCO 

DO 

08 

ONE SDDCA 

file open? 

DDC2 

A6 

71 

LDX $71 


0004 

E8 


INX 

increinont countor 

DDC5 

EO 

10 

CRX #$10 

smaller than 16? 

D0C7 

90 

EO 

BCC $DDH9 


DDCO 

60 


RTS 


DOGA 

06 

71 

STX $71 


DDCC 

20 

3 E 

AND #$3E 

isolate channel number 

DDCE 

AB 


TAY 


DOCK 

HO 

EC 00 

t.DA SOOEC.Y 


DDD2 

29 

01 

AND #$01 

isolate drive number 

DDD4 

«5 

70 

STA $70 


DDDfi 

A E 

53 02 

LDX $0 253 


ODDO 

135 

E2 

LDA $i:2,x 


DODI) 

29 

01 

AND #$01 

isolate drive number 

DDOD 

C5 

70 

CMP $70 

sarae drive? 

DDDF 

DO 

E1 

HNE $DDC2 

no 

DOEl 

139 

60 02 

LDA $0260,Y 

sector number in directory 

D0E4 

D5 

DO 

CMP SDH,X 

sarae as file? 

DDEf. 

DO 

DA 

BNE $DDC2 

no 
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DDEO 

D<) 

66 02 

LDA 

S026C,Y 

UDBU 

D5 

DD 

CMF 

SDD.X 

DDED 

DO 

D3 

IINR 

S DDC2 

DDE E 

Ili 


ctx 


DDFO 

CO 


KTS 



t******************** 

DDEl 

20 

9 E DF 

JSR 

SDF9E 

DDl'4 

50 

oc 

uve 

SDDFC 

DDE6 

20 

5E DE 

JSR 

$DE5E 

DDE9 

20 

99 D5 

JSR 

S 1)599 

DDFC 

60 


RTS 


****************************** 

DDFD 

20 

2D DE 

JSR 

SDE2B 

DEOO 

A5 

80 

LDA 

$80 

DE02 

91 

94 

STA 

($94) ,Y 

DE04 

CB 


INY 


DE05 

A5 

81 

LDA 

$81 

DE07 

91 

94 

STA 

($94),Y 

DE09 

4C 

05 E1 

JMR 

$E105 

****************************** 

DEOC 

20 

2B DE 

JSR 

$DE2U 

DEOF 

in 

94 

LDA 

($94),Y 

DEH 

85 

80 

STA 

$80 

DE13 

CO 


INY 


DEM 

B1 

94 

LDA 

($94) ,Y 

DE16 

05 

81 

STA 

$81 

DE18 

RTS 




DEM 

20 

2B DE 

JSR 

SDB2B 

DEIC 

A9 

00 

LDA 

#$00 

DEIE 

91 

94 

STA 

($94) ,Y 

DE20 

C8 


INY 


DE21 

A6 

82 

LDX 

$82 

DE23 

B5 

CI 

LDA 

$C1 ,X 

DE25 

AA 


TAX 


DE26 

CA 


DEX 


DE27 

8A 


TXA 


DE28 

91 

94 

STA 

($94) ,Y 

DE2A 

CO 


RTS 



****************************** 


DE2n 

20 

93 DF 

JSR 

$DF93 

DE2 E 

DA 


ASL 

A 

DE2F 

AA 


TAX 


DE30 

B5 

9A 

LDA 

$9A,X 

DE32 

85 

95 

STA 

$95 

DE34 

A9 

00 

LDA 

#$00 

DE36 

85 

94 

STA 

$94 

DB38 

AO 

00 

LDY 

#$00 

DE3A 

60 


RTS 



pointer samo? 
no 


urite a block o£ a rel-Eile 
get buffer numbor 
no rei-filo? 
write block 
anci vorify 


write bytes for followincj track 
set buffer pointer 
track number 
in buffer 

sector number 
in buffer 
set rol-flag 

get following track anci sector # 
set buffer pointer 
following track number 


and get sector number 


following track for last block 

set buffer pointer 

zero 

as track number 

channel number 
pointer in block 

minus 1 

as pointer in block 


buffer pointer to zero 
get buffer number 
times 2 

buffer pointer hi 


buffer pointer lo 
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get track and soctor 
got channol nuinbor 
get buffer number 
save 
himes 2 

(jet track 


***(l***É****lt****lt******lt*«**lt 


DB3I> 

20 

ED 

DO 

JS8 

SDOEB 

Dt;3E 

20 

93 

DF 

JSR 

$DF93 

DK-ll 

85 

l’9 


STA 

$F9 

nK43 

OA 



ASL 

A 

DK44 

AB 



TAY 


UH45 

1)9 

06 

00 

EDA 

$0006, V 

DE4Q 

85 

80 


STA 

$80 

DE4A 

B9 

07 

00 

LDA 

$0007,y 

DE4D 

85 

81 


STA 

$81 

DE4K 

60 



RTS 


**«***********«*•****«*******( 

DE50 

A9 

90 


LDA 

#$90 

1)E52 

OD 

4D 

02 

STA 

S024D 

DE55 

DO 

28 


bnl: 

SDE7F 

DE57 

A9 

80 


LDA 

#$80 

DE59 

8D 

4D 

02 

STA 

$024D 

DE5C 

DO 

21 


DNE 

$DE7F 

DE5E 

A9 

90 


LDA 

#$90 

DE60 

8D 

4D 

02 

STA 

$024D 

DE63 

DO 

26 


DNE 

$DE8B 

DE65 

A9 

80 


LDA 

#$80 

nE67 

8D 

4D 

02 

STA 

S024D 

DE6A 

DO 

IF 


DNE 

$DE8D 

DE6C 

A9 

90 


LDA 

#$90 

DE6E 

8D 

4D 

02 

STA 

$024D 

DE71 

DO 

02 


DNE 

$DE75 

DE7 3 

A9 

80 


LDA 

#$80 

l)E75 

8D 

4D 

02 

STA 

$024D 

DE7H 

A6 

02 


LDX 

$82 

DE7A 

1)5 

CD 


LDA 

$CD,X 

nE7C 

AA 



TAX 


DK7 n 

10 

13 


DPL 

$DE92 

bini-' 

20 

DO 

D6 

JSU 

$D6D0 

DEB 2 

20 

93 

DF 

JSR 

SDF93 

DEUS 

AA 



TAX 


DEB 6 

A5 

7F 


LDA 

S7F 

DEB 8 

9D 

5D 

02 

STA 

$025B,X 

DEBB 

20 

15 

E1 

JSR 

$E115 

DEB E 

20 

93 

l>i‘’ 

JSR 

$DF93 

DE91 

AA 



TAX 


DE9 2 

4C 

06 

D5 

JMP 

SD506 

**********àÉ 


DE9 5 

A9 

00 


LDA 

#$00 

DE97 

20 

cn 

D4 

JSR 

$D4C8 

DE9A 

20 

37 

DI 

JSR 

SD137 

DE9D 

05 

80 


STA 

$80 

DE9F 

20 

37 

DI 

JSR 

SD137 

DEA2 

85 

81 


STA 

$81 


and sector # from disk controller 


buffer associated? 

generato hcadcr for disk cont. 

get buffer number 

drive number 

buffer number 
got buffer number 

write block 

got following track & sector from 
buffer 

buffer pointer to zero 
get byte 
savo as track 
got byte 
as sector 


command code for writing 

command code for roading 
command code for writing 

command code for reading 

command code for writing 

command code for reading 

channel number 
side-sector buffer number 
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copy buffer contents 


buffer 

address Y, 

hi 

buffer 

address X, 

hi 


copy contents of buffer y 
to buffer X 


erasc buffer Y 
buffer number 
get hi-address 

lo-nddresG 


erase buffer 

get sidc-soctor number 
buffer pointer to zero 
byte 2 contains thè side-sector i 


DE A4 

60 


HTS 


****************************** 

DRA5 

48 


PMA 


DEAfi 

A9 

00 

LDA 

#$00 

DEA8 

85 

6F 

STA 

$6P 

DEAA 

85 

71 

STA 

$71 

DEAC 

B9 

EO FE 

LDA 

$FEE0,Y 

DEAF 

85 

70 

STA 

$70 

Di’ti 1 

DD 

EO FE 

LDA 

$FEE0,X 

DE 134 

85 

72 

STA 

$72 

DBB6 

68 


PLA 


DEB7 

A8 


TAY 


DED8 

88 


DEY 


DEIJ9 

111 

6F 

LDA 

($6F),Y 

DE DB 

91 

71 

STA 

($71) ,Y 

DEIiD 

88 


DEY 


DEHE 

10 

F9 

HPL 

$DED9 

DECO 

60 


RTS 





DECI 

A8 


TAY 


DEC 2 

D9 

EO FE 

LDA 

SFEEO.Y 

DEC5 

85 

70 

STA 

$70 

DEC7 

A9 

00 

LDA 

#$00 

DEC9 

85 

6F 

STA 

$6F 

DECB 

AB 


TAY 


DECC 

91 

6F 

STA 

($6F),Y 

DECE 

C8 


INY 


DECF 

DO 

FU 

DNE 

$DECC 

DEDl 

60 


RTS 



****************É**ftft********* 


DED2 

A9 

00 

LDA 

#$00 

DED4 

20 

ix: DE 

JSR 

$1)EDC 

UED7 

AO 

02 

LDY 

#S02 

DED9 

B1 

94 

LDA 

($94) ,Y 

DEDB 

60 


RTS 


**************** 


DEDC 

85 

94 

STA 

$94 

DEDB 

A6 

82 

LDX 

$82 

DEEO 

B5 

CD 

LDA 

SCD,X 

DEE2 

AA 


TAX 


DE E 3 

BD 

EO FE 

LDA 

$FEE0,X 

DEE6 

85 

95 

STA 

$95 

DEE8 

60 


RTS 


*****************************1 

DEE9 

48 


PIIA 


DEEA 

20 

IX DE 

JSR 

S DEDC 

DEED 

48 


PHA 


DEEE 

8A 


TXA 


DEEF 

OA 


ASL 

A 

DEFO 

AA 


TAX 



set buffer ptr to side-sector 
pointer lo 
channel number 
buffer number 

buffer addross hi 
set 


buffer pointer for side-sector 
pointer in side-sector 
set buffer pointer 

buffer number- 
tiincs 2 


180 



I SEGRETI DEL 1541 


DKPl 

DE1''2 

DliCM 

DKF5 

nEF7 


DEF8 

DEKU 

UEFD 

DEFF 

DFOl 

DF03 

DF06 

DF09 

DFOB 

DFOE 

DFll 

DF12 

DF14 

DF17 

DFIA 

****** 

DFIB 

DFID 

DFIP 

****1ti 

DK21 
DF23 
DF25 
DF26 
DF28 
PF2A 
DF2C 
DF2D 
DF2F 
DF3 2 
DF34 
DF36 
DF37 
DF39 
DF3U 
DF3D 
DF40 
DF42 

***** 

DF45 

DF47 

DF49 

***** 

DF4C 


68 



PI.A 


buEEor pointer ìli 

95 

9A 


STA 

S9A,X 


68 



PDA 


buEEer pointer lo 

95 

99 


STA 

S99,X 

60 



RTS 



******************4***** 

got sido-scctor and buEEcr ptr 

20 

66 

DF 

JSR 

$DF66 

is side-soctor in buEEer 

30 

OE 


BMI 

$DF0B 

no 

50 

13 


BVC 

$DF12 

ok 

A6 

82 


r,DX 

$82 

cìiannol number 

05 

CD 


LDA 

SCD.X 

buEEer number 

20 

IB 

DF 

JSR 

$DF1B 

read side-sector 

20 

66 

DF 

JSR 

$DF66 

and c)ieck i£ in buEEer 

10 

07 


BPL 

$DF12 

yes? 

20 

CB 

E1 

JSR 

SBICB 

get last side-sector 

2C 

CE 

FE 

BIT 

SFECE 

set V bit 

60 



RTS 



A5 

D6 


LDA 

$D6 

side-sector end pointer 

20 

E9 

DE 

JSR 

$DBE9 

set pointer in side-sector 

2C 

CD 

DE 

BIT 

SFECD 

erase V bit 

60 



RTS 



****É**ik**************** 

read side-sector 

85 

F9 


STA 

$F9 

buEEer number 

A9 

80 


LDA 

«$80 

command code Eor reading 

DO 

04 


BNE 

SDF25 


************************ 

urite side-sector 

85 

F9 


STA 

SF9 

buEEer number 

A9 

90 


LDA 

ff$90 

command code Eor writing 

48 



PBA 



B5 

EC 


LDA 

$EC,X 


29 

01 


AND 

#S01 

isolate drive number 

85 

7F 


STA 

S7F 


68 



PLA 



05 

7F 


ORA 

$7F 

command code plus drive number 

OD 

4D 

02 

STA 

$024D 

save 

B1 

94 


LDA 

($94),Y 

track number 

85 

80 


STA 

$80 


C8 



INT 



01 

94 


LDA 

($94),Y 

sector number 

85 

81 


STA 

$81 


A5 

F9 


LDA 

$F9 

buEEer number 

20 

D3 

D6 

JSR 

$D6D3 

transmit param to disk controller 

A6 

F9 


LDX 

$F9 

buEEcr number 

4C 

93 

n5 

JMP 

$D593 

tranmit cmd to disk controller 

.************************ 

set buEEer pointer in side-soctor 

A6 

82 


LDX 

$82 

cìiannol number 

B5 

CD 


LDA 

$CD,X 

buEEer number 

4C 

EB 

D4 

JMP 

SD4EB 

set buEEer pointer 


************************ calculate block # oE a rel-Eile 
A9 78 LDA K878 120 block ptrs per sicle-sector 
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DF4E 

20 

5C 

DF 

JSR 

$DF5C 

DF51 

CA 



DEX 


DF52 

10 

F8 


BPL 

$DF4C 

DF54 

A5 

72 


LDA 

$72 

DF56 

4A 



LSP 

A 

DF57 

20 

5C 

DF 

JSR 

SDF5C 

DF5A 

A5 

73 


LDA 

$73 

DF5C 

18 



CLC 


DF5D 

65 

70 


ADC 

$70 

DF5F 

85 

70 


STA 

$70 

DF61 

90 

02 


BCC 

SDF6 5 

DF63 

E6 

71 


INC 

$71 

DF65 

60 



RTS 



DF66 

20 

D2 

DK 

JSR 

$DED2 

DF69 

C5 

D5 


CUP 

$D5 

DF6B 

DO 

OE 


BNE 

$DF7D 

DF6D 

A4 

D6 


LDY 

$D6 

DF6F 

B1 

94 


LDA 

($94) ,Y 

DF71 

FO 

04 


BEO 

SDF77 

DF73 

2C 

CD 

FE 

BIT 

$FECD 

DF76 

60 



RTS 


OF77 

2C 

CF 

FE 

BIT 

$FECF 

11F7A 

60 



RTS 


DF71t 

A5 

D5 


LDA 

$D5 

DF7D 

C9 

06 


CMP 

#$06 

DF7 F 

BO 

OA 


BCS 

$DF0B 

DFfll 

OA 



ASL 

A 

DF82 

A8 



TAY 


DFH3 

A9 

04 


LDA 

#$04 

DF85 

85 

94 


STA 

$94 

DF87 

tu 

94 


LDA 

($94) ,Y 

DF89 

DO 

04 


BNE 

$DF8F 

DF8I> 

2C 

DO 

Ft: 

BIT 

$ FEDO 

DF8E 

60 



RTS 


DF8F 

2C 

CE 

FE 

BIT 

SFECE 

UF92 

60 



RTS 


************************ l/* * * * * 

DF93 

A6 

82 


LDX 

$82 

DF95 

B5 

A7 


LDA 

$A7,X 

DF97 

10 

02 


BPL 

$DF9B 

DF99 

B5 

AE 


LDA 

SAE,X 

DF9B 

29 

BF 


AND 

#$BF 

DF9D 

60 



RTS 


DF9E 

Afi 

82 


LDX 

$82 

DFAO 

8E 

57 

02 

STX 

$0257 

DFA3 

B5 

A7 


LDA 

$A7,X 

DFA5 

10 

09 


BPL 

$DFB0 

DFA7 

OA 



TXA 


DFAB 

18 



CLC 



acid to $70/S71 

sicie-sector number 

next siclo-sector? 

pointer vaine in last block 

dividod by 2 

add to prcvious sum 

number ot thè side—sector block 


add 


vorify sido-soctor in buffer 
get side-sector number 
= number of nocessary block? 
no 

pointer in side-sector 
track number 

erasc bits 

set N-bit 


side-sector number 
fi or greater? 
yos 


track number 
set N and V bits 


set V bit 


get buffer number 
channel number 
buffer number 

buffer number from sccond table 
erasc V bit 


channel number 
save 

get buffer number 
buffer allocated 
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incrcment numbor by 7 
and savo 

buffer number from table 2 
crasc thè highest 3 bits 


channel number 
buffer numbor 
buffer freo? 

buffer number from table 2 
f ree? 


DFA9 

69 

07 


ADC 

#$07 

DFAU 

8D 

57 

02 

STA 

$0257 

DFAE 

B5 

AE 


EDA 

$AB,X 

DFUO 

85 

70 


STA 

$70 

DFU2 

29 

IF 


AND 

#$1F 

DFU4 

24 

70 


BIT 

$70 

DFU6 

60 



RTS 


0FB7 

AD 

82 


LDX 

$82 

DFI19 

B5 

A7 


LDA 

SA7,X 

DFUn 

30 

02 


BMI 

SDFBF 

DFBD 

D5 

AE 


LDA 

$AE,X 

DFQF 

C9 

FF 


CMP 

»$FF 

DFCl 

60 



RTS 


0FC2 

Ae 

82 


LDX 

$82 

DFC4 

09 

no 


ORA 

»$80 

DFC6 

B4 

A7 


LDY 

$A7,X 

DFCO 

10 

03 


BPL 

$DFCD 

DFCA 

95 

A7 


STA 

$A7,X 

DFCC 

60 



RTS 


DFCD 

95 

AE 


STA 

$AE,X 

DFCF 

60 



RTS 


****************************** 

DFDO 

A9 

20 


LDA 

«$20 

DFD2 

20 

9D 

DD 

JSR 

SDD9D 

DFD5 

A9 

80 


LDA 

#$80 

DFD7 

20 

A6 

DD 

JSR 

$DDA6 

DFDA 

DO 

41 


BNE 

$E01D 

DFDC 

A6 

82 


LDX 

$82 

DFDE 

F6 

D5 


INC 

$D5,X 

DFEO 

DO 

02 


BNE 

$DFE4 

DFE2 

F6 

BH 


INC 

$BB,X 

DFE4 

Ae 

82 


LDX 

$82 

DFE6 

B5 

CI 


LDA 

$C1,X 

DFB8 

FO 

2E 


BEO 

$E018 

DFEA 

20 

E8 

D4 

JSR 

$D4E8 

DFEl) 

A6 

82 


LDX 

$82 

DFEF 

D5 

CI 


CMP 

$C1,X 

DFFl 

90 

03 


BCC 

S DFF6 

DFF3 

20 

3C 

EO 

JSR 

SE03C 

DFF6 

A6 

82 


LDX 

$82 

DFF8 

B5 

CI 


LDA 

$C1 ,X 

OFFA 

20 

C8 

D4 

JSR 

$D4C8 

DFFD 

Al 

99 


LDA 

($99),X 

DFFF 

85 

85 


STA 

$85 

EUOl 

A9 

20 


r.DA 

#S20 

EOO 3 

20 

9D 

DD 

JSR 

$DD9D 

E006 

20 

04 

f;3 

JSR 

SE304 

E009 

48 



PIIA 


EOOA 

90 

28 


BCC 

$E034 

EOOC 

A9 

00 


LDA 

#800 

EOOE 

20 

F6 

D4 

JSR 

SD4P6 

F.O l l 

DO 

21 


BNi; 

$1:0 34 


get next record in rei-file 


record number hi 
channel number 
write pointer 
zero? 

set buffer pointer 
channel number 

buffer ptr smallcr than write ptr 
yes 

write block, read next block 
channel number 
write pointer 

set buffer pointer = write ptr 

byte from buffer 

put in output register 

crasc bit 5 

add record Icngth to write ptr 
and save 

not yet in last block? 

get track numbor 
doos block oxist? 


erase bit 5 

test bit 7 
set? 

channel number 
increment record number 
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B013 

68 



PLA 


i;0i4 

C9 

02 


CMP 

»$02 

E016 

FO 

12 


BEO 

SE02A 

E018 

A9 

80 


LDA 

»$80 

BOIA 

20 

97 

DD 

JSR 

$DD97 

EOID 

20 

2F 

DI 

JSR 

SD12F 

E020 

B5 

99 


LDA 

$99,X 

E022 

99 

44 

02 

STA 

$0244,Y 

E025 

A9 

OD 


LDA 

»$0D 

E027 

85 

85 


STA 

$85 

E029 

60 



BTS 


E02A 

20 

35 

EO 

JSR 

$E035 

E02D 

A6 

82 


LDX 

$82 

E02F 

A9 

00 


LDA 

lt$00 

E031 

95 

CI 


STA 

$C1,X 

E033 

60 



RTS 


E034 

68 



PLA 


E035 

Ae 

82 


LDX 

$82 

E037 

95 

CI 


STA 

$C1,X 

E039 

4C 

6E 

E1 

JMP 

$E16E 

*****************************1 

E0 3C 

20 

D3 

DI 

JSR 

$D1D3 

E03E 

20 

95 

Dii 

JSR 

SDE95 

E042 

20 

9B 

DF 

JSR 

$DF9E 

E045 

50 

16 


BVC 

$E05D 

E047 

20 

5 E 

DE 

JSR 

SDE5E 

B04A 

20 

lE 

CF 

JSR 

$CF1E 

E04D 

A9 

02 


LDA 

*$02 

E04F 

20 

C8 

D4 

JSR 

SD4C8 

B052 

20 

AB 

DD 

JSR 

$DDAU 

BOSS 

DO 

24 


UN E 

$E078 

E057 

20 

57 

DE 

JSR 

SOE57 

E05A 

4C 

99 

D5 

JMP 

$D599 

E05D 

20 

lE 

CF 

JSR 

SCFIE 

E060 

20 

AB 

DD 

JSR 

$DDAU 

E063 

DO 

06 


BNE 

SEoen 

E065 

20 

57 

DE 

JSR 

$DE57 

E06B 

20 

99 

D5 

JSR 

$D599 

EOCIi 

20 

95 

DE 

JSR 

SDE95 

E06E 

A5 

80 


LDA 

$80 

E070 

FO 

09 


UBO 

SE07B 

E072 

20 

lE 

CF 

JSR 

$CFIE 

E075 

20 

57 

DE 

JSR 

$DE57 

E078 

20 

IB 

CF 

JSR 

$CF1E 

E07D 

60 



RTS 



E07C 

20 

05 

El 

JSR 

$E105 

R07F 

20 

93 

DF 

JSR 

SDF9 3 

E082 

OA 



ASL 

A 

KOB 3 

AA 



TAX 



pointer 
= 2 
yes 

set bit 7 

gct byte from buffer 
buffer pointer 
as end pointer 
CR 

in output register 


channel number 
write pointer to zero 


channel number 
set write pointer 


write block and read next block 

get drive number 

gct track and sector number 

get buffer number 

no rei-file? 

write block 

change buffer 

buffer pointer to 2 
command code for writing? 
no 

read block 
and verify 

change buffer 

command code for writing? 

no 

read block 
and verify 

get track and sector number 
track 

no following track 
change buffer 
read block 
change buffer 


write a byte in a record 

get buffer number 
tiinos 2 
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k:0U4 

A5 

85 


EDA 

$85 

fc;ou6 

81 

99 


STA 

($99,X 

KOflO 

114 

99 


EDV 

$99,X 

KOB A 

C8 



INY 


KOBh 

DO 

09 


HNE 

$E096 

EOBD 

A4 

82 


LDY 

$82 

EOOK 

119 

CI 

00 

EDA 

$00C1, 

K092 

EO 

OA 


riEO 

$E09E 

E094 

AO 

02 


EDY 

#$02 

1:096 

98 



TYA 


K097 

A5 

8 2 


EDV 

$82 

E099 

D9 

CI 

00 

CMP 

$00C1, 

i;09C 

DO 

05 


HNE 

$E04 3 

K09E 

A9 

20 


EDA 

#$20 

EOAO 

4C 

97 

DD 

JMP 

SDD97 

E0A3 

F6 

99 


INC 

$99 ,X 

i:0A5 

DO 

03 


ONE 

$E0AA 

E0A7 

20 

3C 

EO 

JSP 

$E03C 

KOAA 

60 



BTS 



****************************** 


EOAH 

A9 

AO 


EDA 

#$A0 

EOAD 

20 

A6 

DD 

JSR 

$DDA6 

EOllO 

DO 

27 


HNE 

$E0D9 

E0H2 

A5 

05 


EDA 

$85 

E0114 

20 

7C 

EO 

JSH 

$E07C 

E0H7 

A5 

P8 


EDA 

$P8 

1:0119 

PO 

OD 


HEO 

$120 C8 

EOlIll 

60 



KTS 


EOHC 

A9 

20 


EDA 

#$20 

EOO E 

20 

A6 

DD 

JSR 

$DnA6 

EOCl 

PO 

05 


HEO 

SE0C8 

E0C3 

A9 

51 


EDA 

#$51 

E0C5 

8D 

6C 

02 

STA 

$026C 

KOCO 

20 

P3 

EO 

JSR 

SE0P3 

Eocn 

20 

53 

E1 

JSR 

$12153 

1:0 CE 

AD 

6C 

02 

EDA 

$026C 

DODI 

PO 

03 


HEO 

$E0D6 

E0D3 

4C 

C8 

CI 

JMP 

$C1C8 

E0D6 

4C 

HC 

E6 

JMP 

$E6HC 

B0D9 

29 

80 


AND 

#$80 

EODB 

DO 

05 


ONE 

$E0E2 

EODD 

A5 

PO 


EDA 

SP8 

EODF 

PO 

DO 


REO 

$E0BC 

EOEl 

60 



RTS 


EOE 2 

A5 

85 


EDA 

$85 

E0E4 

48 



PIIA 


EOE 5 

20 

IC 

E3 

JSR 

$1231C 

E0E8 

68 



PLA 


E0E9 

85 

85 


STA 

$85 

EOED 

A9 

80 


EDA 

#$80 


data byte 
write in buffer 
buffer pointer 
increment 
not oqual zero? 
channel number 
write pointer 
equal zero? 
buffer pointer to 2 

channel number 

buffer pointer = write pointer? 
no 

set bit 5 

increment buffer pointer 
not zero? 

else write block/ rcad next one 


write byte in rei-file 

test hits 6 f. 7 
set? 

data byte 
write in record 
end? 
yes 


test bit 5 
not set 

51, 'overflow in record' 

set error flag 

fili remainder with zcroes 

error flag set? 
no 

set error message 

error froe exccution 

bit 7 set? 

yes 

end? 


data byte 
expand side-soctor 
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EOED 

20 

9D 

DD 

JSR 

SDD9D 

EOFO 

4C 

112 

EO 

JMP 

$E0B2 

****************************** 

E0F3 

A9 

20 


LDA 

#S20 

E0F5 

20 

A6 

DD 

JSR 

$DDA6 

E0F8 

DO 

OA 


BNE 

SE104 

EOFA 

A9 

00 


LDA 

#$00 

EOFC 

05 

05 


STA 

$85 

EOFE 

20 

7C 

EO 

JSR 

$E07C 

ElOl 

4C 

F3 

EO 

JM1> 

$E0F3 

E104 

60 



RTS 


*******É*«******************** 

E105 

A9 

40 


LDA 

#$40 

E107 

20 

97 

DD 

JSR 

$DD97 

ElOA 

20 

9E 

DF 

JSR 

SDF9E 

ElOD 

09 

40 


ORA 

«$40 

ElOF 

AE 

57 

02 

LDX 

$0257 

E112 

95 

A7 


STA 

$A7,X 

E114 

60 



RTS 


E115 

20 

9E 

DF 

JSR 

SDP9E 

Elin 

29 

HF 


AND 

#$BF 

Eli A 

AE 

57 

02 

LDX 

$0257 

Elio 

95 

A7 


STA 

$A7 ,X 

EllF 

60 



RTS 



E120 

A9 

80 


LDA 

#S80 

E122 

20 

A6 

DD 

JSR 

$DDA6 

E125 

DO 

37 


IINE 

SRI 5 E 

E127 

20 

2F 

DI 

JSR 

$D12F 

E12A 

B5 

99 


LDA 

$99,X 

E12C 

D9 

44 

02 

CMF 

$0244 ,Y 

E12F 

FO 

22 


BEO 

$E135 

E131 

F6 

99 


INC 

$99,X 

E133 

DO 

06 


BNE 

$E13B 

E135 

20 

3C 

EO 

JSR 

$E03C 

E138 

20 

2F 

DI 

JSR 

$D12F 

E13U 

Al 

99 


LDA 

($99,X) 

E13D 

99 

3E 

02 

STA 

$023E,V 

E140 

A9 

89 


LDA 

#SB9 

E142 

99 

F2 

00 

STA 

$00F2,Y 

E145 

D5 

99 


LDA 

$99,y 

E147 

D9 

44 

02 

CHI* 

$0244,y 

E14A 

FO 

01 


BEO 

$E14D 

E14C 

60 



RTS 


E14D 

A9 

81 


LDA 

#$81 

B14F 

99 

F2 

00 

STA 

$00F2,y 

E152 

60 



RTS 


I•;l53 

20 

DO 

DF 

JSR 

S DFDO 


erase bit 7 
write byte in file 

fili record with zeroes 

test bit 5 
set? 

zero as data byte 
write in record 
until record full 


write buffer number in tablo 

set bit 6 

(jet buffer number 

set bit 6 

channel number + 7 
write in table 


get buffer number 
erase bit 6 
channel number 
write in table 


get byte from rei-file 

test bit 7 
set? 

get byte from buffer 
buffer pointer 
compare to end pointer 
equal? 

increment buffer pointer 
not zero? 

write block, road noxt one 
get byte from buffer 

in output register 

set READ and HRI'l'E flag 
buffer pointer 
compare to end pointer 
samc? 


set flag for end 


find noxt record 
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E156 

20 

2L- 

DI 

JSR 

SD12E 

E159 

A5 

85 


LDA 

$85 

K15H 

4C 

3D 

E1 

JHP 

SE13D 

E15E 

A6 

82 


EDX 

$82 

Eleo 

A9 

OD 


LDA 

#S0D 

E162 

9D 

3E 

02 

STA 

$023E,X 

Eie 5 

A9 

01 


LDA 

#$01 

E167 

95 

E2 


STA 

$F2,X 

E169 

A9 

50 


LDA 

#$50 

Eien 

20 

C8 

CI 

JSR 

$C1CB 

E16E 

A6 

82 


LDX 

$82 

E170 

1)5 

CI 


[.DA 

$C1,X 

E172 

85 

87 


STA 

$87 

E174 

ce 

87 


DEC 

$87 

E176 

C9 

02 


CMP 

#S02 

E178 

DO 

04 


DNE 

$E17E 

E17A 

A9 

RE 


LDA 

#SEE 

E17C 

85 

87 


STA 

$87 

E17E 

1)5 

C7 


LDA 

SC7,X 

RIHO 

85 

88 


STA 

$88 

E182 

20 

E8 

D4 

JSR 

$ D4 E8 

Eins 

A6 

82 


LDX 

$82 

E187 

C5 

87 


CMP 

$87 

E189 

90 

19 


l)CC 

$E1A4 

ElBIi 

FO 

17 


BEO 

$E1A4 

EI8D 

20 

lE 

CE 

JSR 

$CE1R 

E190 

20 

1)2 

RI 

JSR 

$ Ri 1)2 

E193 

90 

00 


BCC 

$E19D 

E195 

A6 

82 


LDX 

$82 

E197 

9D 

44 

02 

STA 

$0244,X 

E19A 

4C 

lE 

CE 

JMP 

$CE1E 

E19D 

20 

lE 

CE 

JSR 

$CF1E 

EIAO 

A9 

RE 


LDA 

#$EE 

E1A2 

85 

87 


STA 

$87 

EIA4 

20 

1)2 

RI 

JSR 

$E1B2 

E1A7 

BO 

03 


BCS 

$E1AC 

E1A9 

20 

Efl 

D4 

JSR 

$D4E8 

EIAC 

A6 

82 


LDX 

$82 

ElAE 

9D 

44 

02 

STA 

$0244,X 

RI HI 

eo 



RTS 


E1B2 

20 

21) 

DE 

JSR 

$DE2B 

Rltl5 

A4 

87 


LDY 

$87 

E1M7 

1)1 

94 


LDA 

($94),Y 

E1L(9 

DO 

OD 


BNE 

SE1C8 

Eli) Li 

88 



DEY 


ElHC 

CO 

02 


CPY 

#$02 

E1HE 

90 

04 


BCC 

SE1C4 

Eleo 

ce 

88 


DEC 

$88 

E1C2 

DO 

R3 


ONE 

$ RI 1)7 

EIC4 

ce 

88 


DEC 

$88 

Elee 

10 



Cl.C 



gct buHCer and channol numbcr 
data byte 

into output registor 

channel number 
CK 

into output rogister 

set flag for end 

50, 'record not presont' 

channel number 
writo pointer 
save 

oqual 2? 
no 


record longth 

set buffer pointer 
channol number 

buffer pointer > write pointer? 
no 

change buffer 


channel number 
change buffer 
change buffer 


set buffer pointer 
channol number 
end pointer 

buffer pointer to zero 

byte from buffer 
not zero? 


187 



I SEGRETI DEL 1541 


E1C7 60 RTS 


Elee 

98 



TYA 


E1C9 

38 



SEC 


BICA 

60 



RTS 



Eicn 

20 

D2 

DE 

JSR 

SDED2 

BICE 

85 

D5 


STA 

$D5 

BlOO 

A9 

04 


EDA 

#504 

Bina 

85 

94 


STA 

594 

E1D4 

AO 

OA 


LDY 

#S0A 

E1D6 

DO 

04 


BNE 

SEIDC 

E1D8 

88 



DEY 


E1D9 

88 



DEY 


EIDA 

30 

26 


BMI 

5E202 

EIDC 

DI 

94 


LDA 

(594) ,Y 

EIDE 

FO 

F8 


BEO 

5E1D8 

EIEO 

98 



TYA 


BlBl 

4A 



LSR 

A 

E1E2 

C5 

D5 


CMF 

5D5 

E1E4 

FO 

09 


BEO 

SBIEF 

E1E6 

85 

D5 


STA 

5D5 

E1E8 

A6 

82 


I.DX 

582 

ElEA 

B5 

CD 


LDA 

SCD,X 

EIEC 

20 

IH 

DF 

JSR 

5DF1D 

EIEE 

AO 

00 


LDY 

#500 

ElFl 

84 

94 


STY 

594 

Ell’3 

DI 

94 


LDA 

(594) ,Y 

E1F5 

DO 

OH 


BNE 

5E202 

B1F7 

CO 



INY 


E1F8 

lU 

94 


LDA 

(594),Y 

EIFA 

A8 



TAY 


ElFIl 

88 



DEY 


EIFC 

84 

D6 


STY 

5 D6 

EIFE 

98 



TYA 


EIFF 

4C 

E9 

DE 

JMP 

SDEE9 

E202 

A9 

67 


#567 

E204 

20 

45 

E6 

JSR 

SE645 


E207 

20 

1)3 

C2 

JSR 

5C2B3 

E20A 

AD 

01 

02 

LDA 

50201 

EaOD 

85 

83 


STA 

58 3 

E20f 

20 

EH 

DO 

JSR 

5 DO EH 

E212 

90 

05 


HCC 

5E219 

E214 

A9 

70 


LDA 

#570 

E216 

20 

C8 

CI 

JSR 

5C1C8 

E219 

A9 

AO 


LDA 

#5A0 

E21U 

20 

9D 

DD 

JSR 

5DD9D 

E21E 

20 

25 

DI 

JSR 

5D125 

E221 

FO 

05 


BEO 

5r;228 


get last side-sector 

get number of thè sido-sector 

save 

pointer to sido-soctors 


track It o£ thè previous blcck 


divide by 2 

= number of thè actual block? 
yes 

else save all numbors 
channcl number 
buffer number 
read block 

buffer pointer 
track number 
another block? 

sector number = end pointer 


save end pointer 
set buffer pointer 


67, ’illegal track or sector' 

P-command, 'Record' 
verify lines 
soconriary address 

find channcl number 
tound? 

70, 'no block' 


erase bits 667 
verify if 'REb'-file 
yes 
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k:223 

A9 

64 


LDA 

#$64 

U22‘j 

20 

C8 

CI 

.7 SU 

SC1C8 

n:228 

H5 

EC 


LDA 

SKC,X 

R22A 

29 

01 


AND 

«SOI 

l■;2 2C 

8 5 

7 E 


STA 

S7E 

l•;22E 

AD 

02 

02 

r,DA 

S0202 

i:23i 

95 

1J5 


STA 

$B5,X 

E233 

AD 

03 

02 

LDA 

$0203 

E 2 36 

95 

un 


STA 

$BB,X 

E23fl 

A6 

H2 


LDA 

$82 

E23A 

A9 

89 


LDA 

#$89 

E23C 

95 

F2 


STA 

SF2,X 

E23E 

AD 

04 

02 

LDA 

$0204 

E241 

FO 

10 


BEO 

$E253 

E243 

38 



SEC 


R244 

E9 

01 


SBC 

«SOI 

E246 

FO 

Olì 


BEO 

$B253 

E24« 

D5 

C7 


CMP 

$C7,X 

E24A 

90 

07 


BCC 

SE253 

E24C 

A9 

51 


LDA 

«$51 

E24E 

8D 

6C 

02 

STA 

$026C 

E251 

A9 

00 


LDA 

«$00 

E253 

85 

D4 


STA 

$D4 

E255 

20 

OR 

CE 

JSR 

SCEOE 

E258 

20 

F8 

DE 

JSR 

$DEF8 

E25B 

50 

08 


uve 

$E265 

E25D 

A9 

80 


LDA 

«$80 

E25F 

20 

97 

DD 

JSR 

$DD97 

E262 

4C 

5E 

E1 

JMP 

$E15E 

R265 

20 

75 

E2 

JSR 

$R275 

B268 

A9 

80 


LDA 

«$80 

E26A 

20 

A6 

DD 

JSR 

$ DDA6 

E26D 

FO 

03 


BEO 

$E272 

R26R 

4C 

5 E 

RI 

JMP 

$E15E 

E272 

4C 

94 

CI 

JMP 

$C194 

E275 

20 

9C 

R2 

JSR 

SE29C 

R27.8 

A5 

D7 


LDA 

SD7 

E27A 

20 

CR 

D4 

JSR 

$D4C8 

E27D 

A6 

82 


LDX 

$82 

E27R 

B5 

C7 


LDA 

SC7,X 

R281 

38 



SEC 


E282 

E5 

D4 


SBC 

$D4 

R284 

no 

03 


BCS 

$E289 

E286 

4C 

02 

E2 

JMP 

$E202 

E289 

18 



CLC 


E2aA 

65 

D7 


ADC 

$D7 

E28C 

90 

03 


BCC 

$E291 

E20E 

69 

01 


ADC 

«SOI 

E290 

38 



SEC 


E291 

20 

09 

EO 

JSR 

SE009 

E204 

4C 

38 

RI 

JMP 

SRI 38 


64, 'file typo misiniitch* 


drive number 
record number lo 

record number hi 

channcl number 

RKAD and WRITR flag 

byte-pointer 

zero? 


compare with record length 


51, 'overflow in record* 


calcolate pointer in rei-file 
and read appropriate side-sector 
does block exist? 

set bit 7 

and 50, 'record not present* 


test bit 7 
not set 

50, 'record not present' 
done 


pointer in rei-file 
set buffer pointer 
channel number 
record length 

minus position 
positivo? 

67, * illegal track or soctor* 


add pointer in data block 
no overflow 
plus 2 

set pointer 

got byte from buffer 
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E297 

A9 

51 


EDA 

#$51 

E299 

20 

C8 

CI 

JSR 

SC1C8 

E29C 

A5 

94 


LDA 

$94 

E29E 

85 

89 


STA 

$89 

E2A0 

A5 

95 


EDA 

$95 

E2A2 

85 

OA 


STA 

$8A 

E2A4 

20 

DO 

E2 

JSU 

$E2D0 

E2A7 

DO 

01 


I3NE 

SE2AA 

E2A9 

60 



RTS 


E2AA 

20 

FI 

DD 

JSR 

SDDFl 

E2AD 

20 

OC 

DE 

JSR 

SDEOC 

E 2130 

A5 

80 


EDA 

$80 

E2132 

FO 

OE 


IIEO 

$E2C2 

E 2114 

20 

D3 

E2 

JSR 

SE2D3 

E2I17 

DO 

OC 


13NE 

SE2I1F 

E 2139 

20 

lE 

CF 

JSR 

$CF1E 

E2I1C 

4C 

DA 

D2 

JHP 

$D2DA 

E2I1I' 

20 

DA 

D2 

JSR 

$1)2 DA 

E2C2 

AO 

00 


EDY 

»$00 

E2C4 

131 

89 


LDA 

($89),Y 

E2C6 

85 

80 


STA 

$80 

E2C8 

C8 



INY 


E2Cy 

U1 

89 


EDA 

($89) , Y 

E2CI3 

85 

81 


STA 

$81 

E2CI) 

4C 

AF 

DO 

JMR 

$D0AF 

E2b0 

20 

3R 

DE 

JSR 

SDE3E 

E2I)3 

AO 

00 


EDY 

#$00 

E2D6 

HI 

89 


LDA 

($09),Y 

E 21)7 

C5 

80 


CMR 

$80 

E2f)9 

EO 

01 


I3EO 

SE2DC 

E2I)H 

60 



RTS 


E21)C 

CH 



INY 


E2I>D 

[)1 

89 


LDA 

($89),Y 

E2DE 

C5 

81 


CMR 

$81 

E2E1 

60 



RTS 





R2E2 

20 

213 

DE 

JSR 

$DE2U 

R2E5 

AO 

02 


EDY 

#$02 

E2E7 

A9 

00 


LDA 

#$00 

E2E9 

91 

94 


STA 

($94),Y 

E 2 EU 

CU 



INY 


E2EC 

DO 

FU 


UNE 

$E2E9 

E2EE 

20 

04 

E3 

JSR 

$E304 

E2F1 

9 5 

CI 


STA 

SCI ,X 

E2F3 

AO 



TAY 


E2F4 

A9 

FF 


LDA 

#$FF 

E2F6 

91 

94 


STA 

($94),Y 

E2F8 

20 

04 

E3 

JSR 

$E304 

E2FU 

90 

F4 


UCC 

SE2F1 

E2FD 

DO 

04 


UNE 

$E303 


51, ’overElow in recofti' 

buffer pointer lo 

buffer pointer hi 

compare track and sector 
not equal? 


track 

no block following? 
compare track and sector numbcr 
not equal? 
change buffer 


track 


and sector of thè next block 
road block 


track nuinber 
coinpa re 


sector number 
compare 


subdividc rccords in data block 
set buffer pointer 


erase buffer 


set pointer to next record 


St'K as Ist character in record 
set pointer to next record 
dono in this block? 
block full? 
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write pointer to zero 


set pointer to noxt record 
channol nuinber 
write pointer 

equal zero? 

add record Icngth 
smaller than 256? 
equal 256? 


add two 


expand side—sector 
ijet drive number 
(jet last sido-sector 


sido-sector number 


I52l-’K 

A9 

00 


LDA 

#$00 

B301 

95 

CI 


STA 

SCl.X 

E303 

60 



HTS 



E304 

A6 

82 


LDX 

$02 

E306 

D5 

CI 


LDA 

$C1,X 

E308 

38 



SEC 


E309 

EO 

0(1 


URO 

$E318 

E30b 

18 



CLC 


E30C 

75 

C7 


ADC 

$C7,X 

E30E 

90 

013 


UCC 

$E31U 

E310 

DO 

06 


UN E 

$E318 

i;312 

A9 

02 


LDA 

#$02 

E314 

2C 

CC 

l-'E 

13 IT 

SEECC 

E317 

60 



RTS 


K318 

69 

01 


ADC 

#$01 

t;3lA 

38 



SEC 


i-^in 

60 



KTS 


******************************1 

E31C 

20 

D3 

DI 

JSll 

$D1D3 

E31F 

20 

CH 

El 

JSH 

SEI CU 

E322 

20 

9C 

K2 

.ISO 

$E29C 

l■;325 

20 

713 

CK 

JSR 

$CE7H 

E328 

A5 

D6 


LDA 

$D6 

l•:32A 

85 

87 


STA 

$87 

1:320 

A5 

D5 


LDA 

$1)5 

E32E 

85 

86 


STA 

$86 

E330 

A9 

00 


LDA 

#$00 

1:332 

85 

88 


STA 

$88 

t:334 

A9 

00 


LDA 

*$00 

E3 36 

85 

D4 


STA 

$1)4 

E338 

20 

OE 

CK 

JSR 

SCROE 

E33I) 

20 

41) 

EE 

JSR 

SI:E4D 

E33E 

A4 

82 


l.DY 

$82 

K340 

ri6 

C7 


LDX 

$C7,Y 

E342 

CA 



DEX 


E3<13 

OA 



TX A 


E344 

18 



CLC 


1:34 5 

65 

1)7 


ADC 

$D7 

E347 

90 

OC- 


I3CC 

SE355 

E349 

E6 

DB 


INC 

$D6 

E34H 

E6 

D6 


INC 

SU6 

E34n 

HO 

06 


I3NE 

SE355 

i:34K 

E6 

D5 


INC 

$D5 

n351 

A9 

10 


LDA 

#$10 

1:353 

85 

D6 


STA 

tD6 

1:355 

A5 

87 


LDA 

$87 

1:357 

18 



CLC 


1:358 

69 

02 


ADC 

#$02 

E35A 

20 

E9 

DE 

JSR 

SDEE9 

1:3511 

A5 

D5 


LDA 

SD5 

1:3 5 F 

C9 

06 


CHI’ 

#$06 


calcolate side-sector no. and ptr 
number ot free blocks 
channol number 
record length 


plus pointer in data block 


incroment ptr to end by 2 
incromont side-sector number 
set pointer to 16 


set buffer ptr for sido-sector 
sido-sector number 


191 



I SEGRETI DEL 1541 


E361 

90 

05 


BCC 

$E360 

E363 

A9 

52 


LDA 

#852 

E365 

20 

C8 

CI 

JSR 

scica 

E360 

A5 

D6 


LDA 

$D6 

E36A 

38 



SEC 


E36B 

E5 

87 


SBC 

$87 

E36D 

BO 

03 


BCS 

SE372 

E36E 

E9 

OF 


SBC 

#$0F 

E371 

18 



CLC 


E372 

85 

72 


STA 

$72 

E374 

A5 

D5 


LDA 

$D5 

E376 

E5 

86 


SBC 

$86 

E378 

85 

73 


STA 

$73 

E37A 

A2 

00 


LDX 

«$00 

E37C 

86 

70 


STX 

$70 

E37E 

86 

71 


STX 

$71 

E380 

AA 



TAX 


E381 

20 

51 

DF 

JSK 

$DF51 

E384 

A5 

71 


LDA 

$71 

E386 

DO 

07 


r3NE 

$E38F 

E388 

A6 

70 


LDX 

$70 

E38A 

CA 



DEX 


E38n 

DO 

02 


HNE 

$E38F 

E38D 

E6 

08 


INC 

$88 

E38F 

CD 

73 

02 

CMP 

$0273 

E392 

90 

09 


BCC 

SE39D 

E394 

DO 

CD 


BNE 

$E363 

E396 

AD 

72 

02 

LDA 

$0272 

E399 

C5 

70 


CMP 

$70 

E39B 

90 

C6 


BCC 

$E36 3 

E39D 

A9 

01 


LDA 

«$01 

E39F 

20 

F6 

D4 

JSR 

$D4F6 

E3A2 

18 



CLC 


E3A3 

69 

01 


ADC 

«$01 

E3A5 

A6 

8 2 


I.DX 

$82 

E3A7 

95 

CI 


STA 

SC1,X 

R3A9 

20 

lE 

Fi 

JSR 

$F11E 

E3AC 

20 

FD 

DD 

JSR 

SDDFD 

E3AF 

A5 

88 


I,DA 

$88 

R3U1 

DO 

15 


BNE 

SE3C8 

E3B3 

20 

5 E 

DE 

JSR 

SDE5E 

E3Be 

20 

lE 

CF 

JSR 

SCFIE 

E3B9 

20 

DO 

D6 

JSR 

SD6D0 

E3BC 

20 

lE 

FI 

JSR 

$F11R 

E3nF 

20 

FD 

DD 

JSR 

$ DDFD 

E3C2 

20 

E2 

R2 

JSR 

$E2E2 

E3C5 

4C 

D4 

E3 

JHP 

$E3D4 

E3Ca 

20 

lE 

CF 

JSR 

$CF1E 

E3CI1 

20 

DO 

D6 

JSR 

$D6D0 

E3CE 

20 

E2 

E2 

JSR 

SE2E2 

E3D1 

20 

19 

DE 

JSR 

SDF.19 

f;3D4 

20 

5K 

DE 

JSR 

$nE5E 

E3D7 

20 

OC 

DE 

JSR 

SDEOC 

E3DA 

A5 

80 


LDA 

$80 


smallor than 6? 

52, 'file too large' 
end pointer 

minus last end pointer 
minus 16 


side-sector number 

minus last sido-sector number 

save 

erose sum for calculation 


calcolate block # of rei-file 


block number of rei-file 
greater than free blocks on disk? 
52, 'file too large' 


52, 'file too largo' 


as write pointer 

find troo block in PAM 

track and sector in buffer 

only one block neoded? 
write block 
chancje buffer 

transmit param to disk controller 
find free block in BAM 
track and sector in buffer 
erose buffer 


chanijc buffer 

transmit param to disk controller 
erose buffer 

zero byte and end ptr in buffer 

write block 

get track and sector 

track 


get byte from buffer 
plus 1 
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E3DC 

48 



PHA 


E3DD 

A4 

81 


LDA 

S81 

E3DE 

48 



PIIA 


E3E0 

20 

3E 

DE 

JSR 

SDE3E 

E3E3 

A5 

81 


LDA 

$81 

E3E5 

48 



PilA 


WEB 

A5 

80 


LDA 

$80 

E3E8 

48 



PHA 


E3E9 

20 

45 

DE 

JSH 

SDE4 5 

E3EC 

AA 



TAX 


E3EI) 

DO 

OA 


HNE 

$E3E9 

E3EE 

20 

4 E 

E4 

JSU 

SE44E 

E3E2 

A9 

10 


LDA 

«SIO 

E3K4 

20 

IJO 

DE 

JSR 

SDEE9 

E3K7 

E6 

86 


INC 

$86 

E3E9 

68 



PLA 


E 3 E A 

20 

8D 

OD 

JSR 

$DD8D 

E31'D 

68 



l»LA 


E 3 E E 

20 

8D 

DD 

JSR 

$DD8D 

E<101 

68 



PLA 


E402 

85 

81 


STA 

$81 

E404 

68 



PLA 


E405 

85 

80 


STA 

$80 

E407 

EO 

OE 


HEO 

$E418 

E409 

A5 

86 


LDA 

$86 

E40U 

C5 

D5 


CHP 

$D5 

E40n 

DO 

A7 


HNE 

$E3H6 

E40E 

20 

45 

DE 

JSR 

SDE45 

E412 

C5 

D6 


CMP 

$D6 

E414 

90 

AO 


HCC 

$E3H6 

E416 

EO 

HO 


HEO 

SE3C8 

E4 18 

20 

45 

DE 

JSR 

$DE45 

E41t) 

48 



PHA 


B41C 

A9 

00 


LDA 

#$00 

E4 1 E 

20 

DC 

DE 

JSR 

$DEDC 

B4 21 

A9 

00 


LDA 

«$00 

E423 

A8 



TAV 


E424 

91 

94 


STA 

($94),Y 

E426 

C8 



INY 


E4 27 

68 



PLA 


E 4 28 

38 



se;c 


E4 29 

E9 

01 


SHC 

#$01 

E4 2i3 

91 

94 


STA 

($94),y 

E4 2D 

20 

6C 

DE 

JSR 

$DE6C 

e:4 30 

20 

99 

D5 

JSR 

$D599 

E4 3 3 

20 

E4 

EE 

JSR 

S EEE4 

E4 36 

20 

OE 

CE 

JSR 

SCEOE 

E4 39 

20 

IR 

CE 

JSH 

SCEIE 

E4 3C 

20 

EB 

DE 

JSR 

$DEE8 

E4 3 E 

70 

03 


HVS 

$E444 

E441 

4C 

75 

E 2 

JHP 

$E275 

E444 

A9 

80 


LDA 

#$80 

E44e 

20 

97 

DD 

JSR 

$DD97 

E449 

A9 

50 


LDA 

«S50 


and sector 
save 

get track and sector from disk 
controller 

save track and sector 

set buffer ptr for side-soctor 

pointer not zero? 
write side-soctor 

buffer pointer to 16 
increinent side-sector number 

track in side sector 

sector in side-sector 

sector 

and get track back 
no more blocks? 
side-sector number 
changed? 
yes 

set buffer ptr in side-sector 

end pointer 

smaller? 

same 

set buffer ptr in side-sector 


buffer pointer to zero 


zero as track number 

end pointer 

minus one 
as sector 
wrlto block 
and vcrify 
updato HAM 

updato pointer for rei-file 
chango buffer 
right side-soctor? 
no 


set bit 7 
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E44U 20 C8 CI JSK $C1C8 

**•»»»**»***»*****»***»»**»*** 


E4 4K 

20 

lE 

FI 

JSK 

SFllE 

E451 

20 

lE 

CF 

JSR 

SCFIB 

B454 

20 

FI 

DD 

JSK 

SDDFl 

E457 

20 

93 

DF 

JSR 

$DF93 

E45A 

48 



PHA 


E45B 

20 

CI 

DE 

JSR 

$DEC1 

E45E 

A6 

82 


LDX 

$82 

C460 

D5 

CD 


LDA 

SCD,X 

E462 

A8 



TAY 


E463 

68 



PLA 


E464 

AA 



TAX 


E465 

A9 

10 


LDA 

#$10 

E467 

20 

A5 

DE 

JSR 

$DF,A5 

E46A 

A9 

00 


LDA 

»$00 

E46C 

20 

DC 

DF. 

JSR 

$DEDC 

E46F 

AO 

02 


LDY 

«$02 

E471 

B1 

94 


LDA 

($94) ,Y 

E473 

48 



PKA 


E474 

A9 

00 


LDA 

*$00 

E476 

20 

C8 

D4 

JSR 

$D4C8 

E479 

68 



PLA 


E47A 

18 



CLC 


E47B 

69 

01 


ADC 

#$01 

E47D 

91 

94 


STA 

($94) ,Y 

E47E 

OA 



ASL 

A 

E4B0 

69 

04 


ADC 

»$04 

E482 

85 

89 


STA 

$89 

E484 

A8 



TAY 


E485 

38 



SEC 


E486 

E9 

02 


SBC 

#$02 

E488 

85 

8A 


STA 

$8A 

E48A 

A5 

80 


LDA 

$80 

E48C 

85 

87 


STA 

$87 

E48E 

91 

94 


STA 

($94) ,Y 

E490 

C8 



INY 


E491 

A5 

81 


LDA 

$81 

E493 

85 

88 


STA 

$88 

E495 

91 

94 


STA 

($94),Y 

E497 

AO 

00 


LDY 

#$00 

E499 

98 



TYA 


E49A 

91 

94 


STA 

($94),Y 

B49C 

C« 



INY 


i:49D 

A9 

11 


LDA 

#$11 

b'49F 

91 

94 


STA 

($94),Y 

B4A1 

A9 

10 


LDA 

#$10 

E4A3 

20 

C8 

D4 

JSR 

SD4C8 

E4A6 

20 

50 

DE 

JSR 

$DE50 

E4A9 

20 

99 

D5 

JSR 

SD599 

E4AC 

A6 

82 


LDX 

$82 

C4AE 

B5 

CD 


LDA 

$CD,X 

E4B0 

48 



PDA 



50, 'record not present* 

write side-soctor and allocate 
ncw One 

£ind free block in BAH 
change buffer 
wrlto block 
get buffer number 

erase buffer 
channel number 
buffer number 


16 bytes of thè side-soctor 
copy in buffer 

buffer ptr to 0, old side-sector 
side-sector number 


buffer ptr to 0, now side-sector 


increment side-sector numbtr 
and in buffer 
timcs 2 
plus 4 


minus 2 

same pointer to old side-sector 
track 

in buffer 

sector 

in buffer 


isero in buffer 
17 

number of bytes in block 
16 

buffer pointer to 16 
write block 
and verlfy 
channel number 

buffer number of thè side-sector 
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E4B1 

20 

9E 

DF 

JSR 

$DF9E 

K;4B4 

A6 

82 


LDX 

$82 

li:4B6 

95 

CD 


STA 

$CD,X 

E4H8 

68 



PLA 


E4U9 

AE 

57 

02 

LDX 

$0257 

E4UC 

95 

A7 


STA 

$A7,X 

E4BE 

A9 

00 


LDA 

*$00 

E4C0 

20 

C8 

D4 

JSK 

$D4C8 

E4C3 

AO 

00 


LDY 

#$00 

E4C5 

A5 

00 


LDA 

$80 

E4C7 

91 

94 


STA 

($94) ,Y 

E4C9 

C8 



INlf 


E4CA 

A5 

81 


LDA 

$81 

E4CC 

91 

94 


STA 

($94),Y 

E4CE 

4C 

DE 

E4 

JMP 

$E4DE 

E4D1 

20 

93 

DF 

JSR 

$DF93 

E4D4 

A6 

82 


LDX 

$82 

E4D6 

20 

IB 

DF 

JSU 

$DF1D 

E4D9 

A9 

00 


LDA 

«$no 

E4DB 

20 

C8 

D4 

JSR 

$D4C8 

E E DE 

C6 

8A 


DEC 

$8A 

E4E0 

C6 

SA 


DEC 

$8A 

E4E2 

A4 

89 


LDY 

$89 

E4E4 

A5 

87 


LDA 

$87 

E4E6 

91 

94 


STA 

($94) ,Y 

E4E8 

C8 



INVr 


B4E9 

A5 

88 


LDA 

$88 

E4EB 

91 

94 


STA 

($94) ,Y 

E4BD 

20 

5E 

DE 

JSR 

$DE5E 

B4E0 

20 

99 

D5 

JSR 

$D599 

E4F3 

A4 

OA 


LDY 

$aA 

E4E5 

CO 

03 


CPY 

*$03 

E4F7 

BO 

DB 


BCS 

$E4D1 

E4F9 

4C 

lE 

CF 

JMP 

$CF1E 


get bufCoi: numbcr 
channol numbor 
write in tablo 

channel number + 7 
In tablo 

buffer pointer to zero 

track 
in buffer 

sector 
in buffer 


got buffer number 
channel number 
road block 

buffer pointer to zero 

counter for side-soctor blocks 

track number 
in buffer 

sector number 
in buffer 
write block 
and verify 

counter for side-sector blocks 

groater than or egual to 3? 
change buffer 



****************** 

* 

table of error messages 

E4FC 

00 








00 


E4FD 

AO 

4F 

CB 






' OK’ 


E500 

20 

21 

22 

23 24 

27 




error numbers of ' 

read error' 

E506 

D2 

45 

41 

44 





•Read' 


E50A 

89 








pointer to 'error* 


E50B 

52 








52 


E50C 

83 








pointer to 'file' 


E50D 

20 

54 

4F 

4F 20 

AC 

4A 

52 

47 

C5 ' too largE' 


F,517 

50 








50 


ESI 8 

8B 

06 







pointer to 'record 

' and 'not 

E51A 

20 

50 

52 

45 53 

45 

4E 

D4 


' presenT’ 


E522 

51 








51 


E523 

CF 

56 

45 

52 46 

4C 

4F 

57 

20 

'Overflow in' 


E52B 

88 








pointer to 'record 

1 

E5 2F 

25 

28 







error numbers of ' 

write error 

R5 31 

8A 

89 







pointer to 'write' 

and 'error 

E533 

26 








26 


E534 

8A 








pointer to 'write' 
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E535 

20 

50 

52 

4F 

54 

45 

43 

54 

20 

4E CE ' protect oN' 

K540 

29 









29 


E541 

88 









pointer to 

'disk' 

E54 2 

20 

49 

85 







• id’ 


E545 

85 









pointer to 

' mismatch' 

ES46 

30 

31 

32 

33 

34 





error numbers for ’syntax error' 

E54B 

U3 

59 

4E 

54 

41 

58 




’Syntax' 


E551 

89 









pointer to 

' error' 

i;552 

60 









60 


E553 

8 A 

03 

84 







ptrs to 'write', 'file* & 'open* 

E556 

63 









63 


E557 

83 









pointer to 

'file' 

E558 

20 

45 

58 

49 

53 

54 

D3 



' existS* 


E55E 

64 









64 


E560 

83 









pointer to 

'file' 

E561 

20 

54 

59 

50 

45 





' type' 


E566 

85 









pointer to 

'mismatch' 

E567 

65 









65 


E568 

CE 

4 E 

20 

42 

4C 

4 E 

43 

CU 


'No block' 


E570 

66 

67 








'illeqal track or sector' 

E572 

C9 

4C 

4C 

45 

47 

41 

4C 

20 


'I negai ' 


E57A 

54 

52 

41 

43 

4B 

20 

4F 

52 


'track or' 


E582 

20 

53 

45 

43 

54 

4 E 

D2 



'sectoB' 


E589 

61 









61 


E58A 

83 

06 

84 







pointer to 

'file', 'not' b 'open 

E58n 

39 

62 








error nos. 

for 'file not found' 

K590 

8 3 

06 

87 







ptrs to ' 

file', 'not' & 'found* 

ESO 3 

01 









01 


E594 

83 









pointer to 

'fiU ■ 

ESO 4 

53 

20 

53 

43 

52 

41 

54 

43 

48 

45 C4 's 

seral i. :.. D' 

E59E 

70 









70 


ESAO 

CE 

4 E 

20 

43 

48 

41 

4 E 

4 E 

45 

CC 'No channeL' 

ESAA 

71 









71 


ESAll 

C4 

49 

52 







' Dir' 


ESAE 

89 









pointer to 

'error' 

ESAE 

72 









72 


ESBO 

88 









pointer to 

'disk' 

ESBl 

20 

46 

55 

4C 

CC 





' fulL' 


E5B6 

73 









73 


E5B7 

C3 

42 

4n 

20 

44 

4F 

53 

20 


'Cbm dos ' 


ESBE 

56 

32 

2E 

36 

20 

31 

35 

34 

U1 

'v2.6 1541 

1 

ESC4 

74 









74 


ESCS 

C4 

42 

49 

56 

45 





'Drive' 


ESCA 

06 









pointer to 

' not ' 

ESCI! 

20 

52 

45 

41 

44 

D9 




' ready' 


ESDS 

09 











ESI)6 

C5 

52 

52 

4F 

02 





'ErroR' 


ESDU 

OA 











ESDC 

D7 

52 

49 

54 

C5 





'WritE' 


E5E1 

03 











ESE2 

C6 

49 

4C 

C5 






'FilE' 


ESE6 

04 











E6E7 

CE 

50 

45 

CE 






'OpoN' 


ESEU 

05 











ESEC 

CD 

49 

53 

41) 

41 

54 

43 

CO 


'Mismatcll' 
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E5F4 

06 





E5F5 

CE 

4F 

D4 



ESFB 

07 





E5F9 

C6 

4F 

55 

4E 

C4 

E5FE 

08 





K5FF 

C4 

49 

53 

CB 


E603 

Oli 





E6U4 

D2 

45 

43 

4F 

52 




E60A 

48 


! 

PHA 


E60B 

86 

F9 


STX 

$F9 

E60D 

8 A 



TXA 


E60E 

OA 



ABL 

A 

E60F 

AA 



TAX 


E610 

135 

06 


LOA 

$06,X 

E612 

85 

80 


STA 

$80 

Eei4 

B5 

07 


LDA 

$07,X 

E616 

85 

81 


fìTA 

$81 

E618 

68 



PLA 


E619 

29 

OF 


ANO 

«$0F 

E61U 

FO 

08 


BEO 

$E625 

E61D 

C9 

OF 


CMP 

#S0F 

E61F 

DO 

06 


LINE 

$E627 

E621 

A9 

74 


LDA 

#$74 

E623 

DO 

08 


UN E 

$E62D 

E625 

A9 

06 


LDA 

*$06 

B627 

09 

20 


ORA 

#$20 

E629 

AA 



TAX 


E62A 

CA 



DEX 


E62B 

CA 



DEX 


E6 2C 

8 A 



TXA 


E6 2D 

48 



PIIA 


E62E 

AD 

2A 

02 

LDA 

$022A 

E631 

C9 

00 


CMP 

«$00 

E633 

DO 

OF 


BNE 

$E644 

E635 

A9 

FF 


LDA 

#$FF 

Ef)37 

8 D 

2A 

02 

STA 

S022A 

E6 3A 

68 



PLA 


E6 3I) 

20 

C7 

E6 

JSR 

SE6C7 

E6 3E 

20 

42 

DO 

JSR 

$004 2 

Ef)41 

4C 

48 

E6 

JMP 

SE640 

E64 4 

68 



PLA 


E645 

20 

C7 

E6 

JSR 

$E6C7 

E64n 

20 

BD 

CI 

JSR 

$C1BD 

E64B 

A9 

00 


LDA 

«$00 

E64D 

8 D 

F9 

02 

STA 

$02F9 

E650 

20 

2C 

CI 

JSR 

$C12C 

E653 

20 

DA 

D4 

JSR 

$D4DA 

E656 

A9 

00 


LDA 

*$00 

E658 

85 

A3 


STA 

$A3 

E65A 

A2 

45 


LDX 

#S45 

E65C 

9A 



TXS 


E65D 

A5 

84 


LDA 

$84 


’NoT' 

'FounD' 

•DisK' 

' RecorD' 

preparo error number and mossage 
savo error code 
drive number 

tlmes 2 
as pointer 

get track 

and soctor number 
get error code back 
isolate bits 0-3 
zero, thon 24, 'read error' 
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74, 'drive not ready' 
6 

add S20 


subtract two 

save error number 
number o£ thè disk command 
OPEN or VALIDATE? 
no 


get error number back 
generate error message 
load BAH 

set error message 


set error message 
erasc input buffer 

erase error flag 
turn LED off 

dose channels 17 and 18 

input buffer pointer to zero 

initialize stack pointer 
socondary address 


197 



I SEGRETI DEL 1541 


E65F 

29 

OF 

AND 

#S0F 

E661 

85 

83 

STA 

$83 

E663 

C9 

OF 

CMP 

#$0F 

E66 5 

FO 

31 

BEO 

SE698 

E667 

78 


SRI 


E668 

A5 

79 

LDA 

$79 

E66A 

DO 

IC 

BNB 

$E688 

E66C 

A5 

7A 

LDA 

$7A 

E66B 

DO 

10 

BNE 

$E680 

E670 

A6 

83 

LDX 

$83 

E672 

UD 

2U 02 

LDA 

$022n,X 

E67 5 

C9 

FF 

CMP 

#$FF 

E677 

FO 

IF 

BEO 

$E698 

E679 

29 

OF 

AND 

#$0F 

E67B 

85 

82 

STA 

$82 

E67D 

4C 

8 e' E6 

JMP 

$Ee8E 

****************************** 

E680 

20 

EB DO 

JSR 

$D0EB 

E683 

20 

4E EA 

JSR 

$EA4E 

E686 

DO 

06 

BNE 

$E68E 

****************************** 

E688 

20 

07 DI 

JSR 

$D107 

E68I) 

20 

4E EA 

JSR 

$EA4E 

£688 

20 

25 DI 

JSR 

$D125 

E691 

C9 

04 

CMP 

#$04 

E693 

BO 

03 

BCS 

$E698 

E695 

20 

27 D2 

JSR 

$D227 

E698 

4C 

E7 EU 

JMP 

$EI)E7 

****************************** 

E69D 

AA 


TAX 


E69C 

A9 

00 

LDA 

o 

o 

E69E 

F8 


SED 


E69F 

EO 

00 

CPX 

«$00 

F6A1 

FO 

07 

BEO 

$E6AA 

E6A3 

18 


CLC 


E6A4 

69 

01 

ADC 

#$01 

A6A6 

CA 


DEX 


E6A7 

4C 

9F E6 

JMP 

$E69F 

EòAA 

DB 


CLD 



E6AB 

AA 


TAX 


E6AC 

4A 


LSR 

A 

E6AD 

4A 


LSR 

A 

E6AE 

4A 


LSR 

A 

E6AE 

4A 


LSR 

A 

B6H0 

20 

B4 E6 

JSR 

SE6R4 

E6B3 

8A 


TXA 


E6B4 

29 

OF 

AND 

#S0F 

E6Be 

09 

30 

ORA 

«$30 

EeB8 

91 

A5 

STA 

(SA5),Y 

EfiBA 

C8 


INY 
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ycs, cominand channol 

LISTEN active? 
yes 

TALK active? 
yes 

channel number 

open channol to thls second. addr 
no 

channel number 


TALK 

open channel for reading 
accept byte 


LISTEN 

open channel for writlng 

accept byte 

vorify file typè 

file type PEL? 

yes 

dose channel 


convert hex to decimai (2 bytes) 


convcrt hex to BCD 


divide HCI) number Into two bytes 


shift hi-nibble down 


convert to ASCII 

erase top 4 bits 
add '0' 

writc in buffer 
incremont buffer pointer 
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E6BB 60 RTS 




E6BC 

20 

23 

CI 

JSR 

SC123 

E6BF 

A9 

00 


LDA 

»$00 

E6C1 

AO 

00 


LDY 

«800 

E6C3 

84 

80 


STY 

S80 

E6C5 

84 

81 


STY 

$81 

*****************************, 

E6C7 

AO 

00 


LDY 

#$00 

E6C9 

A2 

D5 


LDX 

«SD5 

E6CB 

8G 

A5 


STX 

SA5 

ECCO 

A2 

02 


LDX 

»S02 

K6CF 

86 

AG 


STX 

$A6 

Ef)in 

20 

AB 

E6 

JSR 

SE6AB 

Efil>4 

A9 

2C 


LDA 

«$2C 

E6D6 

9A 

A5 


STA 

($A5),Y 

ED68 

C8 



INY 


E6D9 

AD 

D5 

02 

LDA 

$02D5 

E6BC 

BD 

43 

02 

STA 

$0243 

E6DK 

8A 



TX A 


E6E0 

20 

06 

E7 

JSR 

$E706 

E6B3 

A9 

2C 


LDA 

#$2C 

E6E5 

91 

A5 


STA 

($A5),Y 

E6E7 

C8 



INY 


EGEB 

A5 

80 


LDA 

$80 

EGEA 

20 

9B 

EG 

JSR 

$E69B 

EGEO 

A9 

2C 


LDA 

«$2C 

EGEE 

91 

A5 


STA 

($A5),Y 

EGEI 

C8 



INY 


E6F2 

A5 

81 


LDA 

$81 

E6F4 

20 

90 

E6 

JSR 

$E69B 

E6F7 

88 



DEY 


EGEB 

98 



TYA 


KG E9 

18 



CLC 


EGEA 

69 

D5 


ADC 

«$D5 

EGEC 

8D 

49 

02 

STA 

$0249 

EGEE 

E6 

A5 


INC 

$A5 

E70I 

A9 

88 


LDA 

#$88 

E703 

85 

E7 


STA 

$E7 

E705 

60 



RTS 



****************************** 


K706 

AA 


TAX 


R707 

A5 

86 

LDA 

$86 

E709 

48 


PMA 


K70A 

A5 

87 

LDA 

$87 

E70C 

48 


PHA 


E70D 

A9 

EC 

LDA 

#$EC 

E70E 

85 

86 

STA 

»SE4 

E713 

85 

87 

STA 

$87 

E715 

SA 


TX A 


K71G 

A2 

00 

LDX 

#S00 

E718 

CI 

86 

CMP 

($86,X) 


urite 'ok' in buffer 
orasc orror flag 
error numbor 0 

track 0 
sector 0 

error message in buffer 
buffer pointer 

pointer SA5/SA6 TO S2D5 


error I to AOCll and in buffer 

',' comma 

urite in buffer 

incroment buffer pointer 

first digit of thè disk status 

in output registor 

orror number in accumulator 

orror message in buffer 

■ , ' comma 

urite in buffer 

and incremont buffer pointer 

track numbor 

to ASCII and in buffer 

',' comma 

urite in buffer 

incremont buffer pointer 

sector 

convort to ASCII and in buffer 


end pointer 
set READ flag 


urite orror message to buffer 
error code to X 

preservo pointer $86/$B7 


start of thè orror messages 
error numbor in accumulator 
compare uith orror no in tablo 
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E71A 

FO 

21 


BEO 

$E73D 

E71C 

48 



PHA 


E71D 

20 

75 

E7 

JSR 

$E775 

E7 20 

90 

05 


BCC 

SE727 

E722 

20 

75 

E7 

JSR 

SE775 

R7 25 

90 

FB 


BCC 

SE722 

E727 

A5 

87 


LDA 

$87 

E7 29 

C9 

E6 


CHP 

1I$E6 

f;7 2B 

90 

08 


BCC 

$137 35 

E72D 

bO 

OA 


BNE 

SE739 

E72K 

AO 

OA 


EDA 

lt$0A 

K7 31 

C5 

86 


CMP 

$86 

E733 

90 

04 


BCC 

$E7 39 

E735 

68 



PLA 


E7 36 

4C 

18 

E7 

JMP 

$13718 

E7 39 

68 



PLA 


E7 3A 

4C 

4b 

E7 

JMP 

SE74D 

E73n 

20 

67 

1:7 

JSR 

$E767 

E740 

90 

FB 


BCC 

$E73b 

E742 

20 

54 

137 

JSR 

$13754 

E745 

20 

67 

137 

JST 

$E767 

E748 

90 

F8 


BCC 

SE742 

E74A 

20 

54 

K7 

JSR 

$E754 

E74D 

60 



PLA 


E74E 

85 

87 


STA 

$87 

E750 

68 



PLA 


E751 

85 

86 


STA 

$86 

E753 

60 



RTS 


***************************** 

E754 

C9 

20 


CMP 

*$20 

E756 

00 

OD 


BCS 

$E763 

E7 58 

AA 



TAX 


l•;759 

A9 

20 


LbA 

«$20 

E7 5I1 

91 

A5 


STA 

($A5),Y 

E75D 

C8 



INY 


E75E 

8A 



TXA 


E75f 

20 

06 

f;7 

JSR 

SE706 

E762 

60 



RTS 


E763 

91 

A5 


STA 

($A5),Y 

E765 

ca 



INY 


r;766 

60 



RTS 


***************************** 

E767 

E6 

86 


INC 

$86 

K769 

bO 

02 


BNE 

$i;76D 

f;76l) 

E6 

87 


INC 

$87 

i;7f>n 

Al 

86 


LbA 

($86,X) 

E76E 

OA 



ASL 

A 

E770 

Al 

86 


LDA 

($86,X) 

E772 

29 

7F 


ANb 

#$7F 

E774 

60 



PTS 





bit 7 into carry and erase 
not set? 

bit 7 into carry 

wait for character with bit 7 set 


$E60A, check uo end oE tabi e 


get a character, bit 7 in carry 

wait for character with bit 7 set 

and write in buECer 

got next character 

wait Eor character with bit 7 set 

put character in buffer 


get character and in buffer 
' ' blank 

greater, thcn write in buffer 

save code 

blank 

write in buffer 
incremont buffer pointer 
code in accuinulator 
output prcvious text 

write character in buffer 
and incremont pointer 


got a char of thè orror messago 

incremont pointer 

get character 
bit 7 into carry 
got character 
erase bit 7 


incremont pointer 


no, continue 
done 


got pointer 386/S87 back 
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E775 

20 

6D 

E7 

JSR 

SE76D 

E770 

E6 

86 


INC 

$86 

E77A 

DO 

02 


DNE 

$E77E 

E77C 

ES 

87 


INC 

$87 

E77E 

60 



RTS 



E77E 

60 



RTS 


*******************<.********^ 

E780 

AD 

00 

18 

LDA 

$1800 

£703 

AA 



TAX 


E7U4 

29 

04 


AND 

#$04 

£786 

EO 

E7 


BEO 

SE77F 

E788 

8A 



TXA 


E789 

29 

01 


AND 

#$01 

£781) 

EO 

E2 , 


BEO 

SE77F 

E78D 

58 



CLI 


E78E 

AD 

00 

18 

LDA 

$1800 

E791 

29 

05 


AND 

#$05 

E79 3 

EO 

F9 


BNE 

SE70E 

E795 

EE 

78 

02 

INC 

$0278 

E798 

EE 

74 

02 

INC 

$0274 

E79B 

A9 

2A 


LDA 

#$2A 

E79D 

8D 

00 

02 

STA 

$0200 

E7A0 

4C 

A8 

E7 

JMP 

$E7A8 

**********'****************** 

E7A3 

A9 

8D 


LDA 

#S8D 

K7A5 

20 

68 

C2 

JSR 

$C268 

E7A8 

20 

58 

E2 

JSR 

$F258 

E7An 

AD 

78 

02 

LDA 

$0278 

E7AE 

48 



PHA 


E7AE 

A9 

01 


LDA 

#S01 

E7U1 

8D 

78 

02 

STA 

$0278 

E71J4 

A9 

EE 


I.DA 

#SEF 

E7n6 

85 

86 


STA 

$86 

E7I)0 

20 

4 E 

C4 

JSR 

SC44P 

E7Hri 

AD 

80 

02 

LDA 

$0280 

1:7 Ut: 

DO 

05 


BNE 

SE7C5 

E7C0 

A9 

39 


LDA 

#$39 

E7C2 

20 

C8 

CI 

JSR 

$C1C8 

E7C5 

68 



PLA 


E7C6 

8D 

78 

02 

STA 

$0278 

E7C9 

AD 

80 

02 

LDA 

$0280 

E7CC 

85 

80 


STA 

$80 

E7CK 

AD 

85 

02 

LDA 

$0285 

£7 DI 

85 

81 


STA 

$81 

E7D3 

A9 

03 


LDA 

#$03 

K7 D5 

20 

77 

D4 

JSR 

$D477 

E7D8 

A9 

00 


LDA 

#$00 

E7DA 

85 

87 


STA 

$87 

E7DC 

20 

39 

E8 

JSR 

$E839 

E7DE 

85 

88 


STA 

$88 

E7EÌ 

20 

4H 

E8 

JSR 

$E84n 


bit 7 into carry 
increnient pointer 


check for AUTO-start 
road IBEE port 

isolate 'CLOCK IN' bit 
not set, thon dono 

isolate 'DATA IN' bit 
not set, then done 

load IEEE port 

test 'DATA IN' and 'CLOCK IN' 
Walt until both set 
file namc 

character in thè input line 
'*' as fllenatne 
write in buffer 


'&' - command 

check command line to end 
(RTS) 

number of filo names 
save 

file name 


find file 
found? 

39, 'file not found' 

(jet number of file names back 
track 

and sector 
file type 'USR' 

buffer allocated, rcad Ist block 

erase checksum 
get byte froro file 
save as start address lo 
form checksum 


201 



I SEGRETI DEL 15U 


get byte from file 
as start address hi 
form checksum 


savo program start address 


get byte from file 
save as counter 
form checksum 
got byte from file 

savo as program bytes 
form checksum 


E7E4 

20 

39 

E8 

JSR 

$E839 

E7E7 

85 

89 


STA 

$89 

E7E9 

20 

4U 

E8 

JSR 

$EB4B 

E7EC 

A5 

86 


LDA 

$86 

E7EE 

FO 

OA 


BEO 

$E7FA 

E7F0 

A5 

88 


LDA 

$88 

E7t’2 

48 



PilA 


B7F3 

A5 

89 


LDA 

$89 

E7F5 

48 



PHA 


E7F6 

A9 

00 


LDA 

#$00 

E7F8 

85 

86 


STA 

$86 

E7FA 

20 

39 

E8 

JSR 

$E839 

E7FD 

85 

8A 


STA 

$8A 

E7FF 

20 

4U 

EB 

JSR 

$E84D 

E802 

20 

39 

E8 

JSR 

$E839 

E805 

AO 

00 


LDV 

#$00 

E807 

91 

88 


STA 

($88),Y 

£809 

20 

4» 

E8 

JSR 

$E84D 

E80C 

A5 

88 


LDA 

$88 

E80E 

18 



CLC 


E80F 

69 

01 


ADC 

#$01 

E811 

85 

88 


STA 

$88 

E813 

90 

02 


DCC 

$E817 

E815 

E6 

89 


INC 

$89 

EB17 

C6 

8A 


DEC 

$BA 

EB19 

DO 

E7 


BNE 

$E802 

E81B 

20 

35 

CA 

JSR 

$CA35 

E81E 

A5 

85 


LDA 

$85 

E820 

C5 

87 


CMP 

$87 

E822 

FO 

08 


BEO 

$E8 2C 

EB24 

20 

3E 

DE 

JSR 

$DE3E 

E827 

A9 

50 


LDA 

#S50 

EB29 

20 

45 

E6 

JSR 

$E645 

E82C 

A5 

F8 


LDA 

$F0 

E82E 

DO 

A8 


BNE 

$B7D8 

E830 

68 



PLA 


E631 

85 

89 


STA 

$89 

E833 

68 



PLA 


EB34 

85 

88 


STA 

$88 

E836 

6C 

88 

00 

JMP 

($0088) 

E8 39 

20 

35 

CA 

JSR 

$CA35 

E83C 

A5 

F8 


LDA 

$F8 

EB3E 

DO 

08 


BNE 

$E848 

E840 

20 

3E 

DE 

JSR 

$DE3E 

EB43 

A9 

51 


LDA 

#$51 

EB45 

20 

45 

E6 

JSR 

$E645 

EB4B 

A5 

85 


LDA 

$85 

EB4A 

60 



RTS 


**»**************************: 

EB4B 

A8 



CLC 


EB4C 

65 

87 


ADC 

$87 

E84E 

69 

00 


ADC 

#$00 

EB50 

85 

87 


STA 

$87 

E852 

60 



RTS 



increment $88/SB9 


decrement pointer 

get next byte 
data byte 

equal to checksum? 
yes 

transmit param to disk controller 

50, 'record not present' 
end? 

no, next data block 


got program start address back 

and execute program 
get byte from file 
end? 
no 

transmit param to disk controller 

51, 'overflow in record' 
data byte 


generate checksum 
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****************************** routine for serial bus 


E853 

AD 

01 

18 

LDA 

$1801 

EB56 

A9 

01 


LDA 

#$01 

E86U 

85 

7C 


STA 

$7C 

EB5A 

60 



RTS 


**************************** 

E85B’ 

78 



SEI 


E85C 

A9 

00 


LDA 

#$00 

E85E 

85 

7C 


STA 

$7C 

E8eo 

85 

79 


STA 

$79 

E862 

85 

7A 


STA 

$7A 

E864 

A2 

45 


LDX 

»$45 

8866 

9A 



TXS 


E867 

A9 

80 


LDA 

#S80 

E869 

85 

F8 


STA 

$F8 

8868 

85 

7D 


STA 

$7D 

886D 

20 

B7 

E9 

JSR 

$E9B7 

E870 

20 

A5 

89 

JSR 

$E9A5 

8873 

AD 

00 

18 

LDA 

$1800 

E876 

09 

10 


ORA 

«SIO 

E878 

8D 

00 

18 

STA 

$1800 

8878 

AD 

00 

18 

LDA 

$1800 

EB7E 

10 

57 


BPL 

$E8D7 

8880 

29 

04 


AND 

#$04 

B882 

DO 

F7 


BNE 

$E87D 

8884 

20 

C9 

89 

JSR 

$E9C9 

8887 

C9 

3F 


CMP 

#$3F 

8889 

DO 

06 


BNE 

$8891 

8888 

A9 

00 


LDA 

#$00 

88BD 

85 

79 


STA 

$79 

8888 

FO 

71 


BEO 

$E902 

8891 

C9 

5F 


CMP 

#$5F 

E893 

DO 

06 


BNE 

$E89D 

8898 

A9 

00 


LDA 

#$00 

E097 

85 

7A 


STA 

$7A 

E899 

FO 

67 


BEO 

$8902 

8891» 

C5 

78 


CMP 

$70 

88 9 D 

DO 

OA 


BNE 

SE0A9 

8898 

A9 

01 


LDA 

#$0l 

88A1 

85 

7A 


STA 

S7A 

E8A3 

A9 

00 


LDA 

#$00 

E8A5 

85 

79 


STA 

$79 

80A7 

FO 

29 


BEO 

$E8D2 

E8A9 

C5 

77 


CMP 

$77 

EU AH 

DO 

OA 


BNE 

$E8U7 

8UAU 

A9 

01 


LDA 

#S01 

88A8 

85 

79 


STA 

$79 

88 HI 

A9 

00 


LDA 

#$00 

8883 

85 

7A 


STA 

$7A 

88 85 

FO 

IH 


BEO 

SE8D2 

8887 

AA 



TAX 


88 H8 

29 

60 


AND 

#S60 

88 HA 

C9 

60 


CMP 

«$60 


rcad port A/ crase IRÒ flag 
set flag for 'ATN recoived' 


scrvicing tlie serial bus 


crase flag for 'ATN received' 
erase flag for LISTEN 
erase flag for TALK 

initializo stack pointer. 

erase end flag 
crase EOI flag 
CLOCK OUT lo 
DATA OUT, bit ’O', hi 

switch data lines to input 

read IEEE port 
EOI? 

CLOCK IN? 
no 

get byte ftom bus 

unlisten? 

no 

reset flag for LISTEN 

untalk? 

no 

reset flag for TALK 

TALK addrcss? 
no 

set flag for TALK 

reset flag for LISTEN 

LISTEN addrcss? 
no 

set flag for LISTEN 
reset flag for TALK 


set bit 5 and 6 
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E8BC 

DO 

3F 


BNE 

$E0FD 

E8UE 

BA 



TXA 


E8UF 

85 

84 


STA 

$84 

ESCI 

29 

OF 


AND 

#$0F 

E8C3 

85 

83 


STA 

$83 

E8C5 

A5 

84 


LDA 

$84 

E8C7 

29 

EO 


AND 

#$F0 

EBC9 

C9 

EO 


CHE 

»$B0 

E8Cb 

DO 

35 


BNE 

$E902 

E8CD 

58 



CLI 


E8CE 

20 

CO 

DA 

JSR 

$DAC0 

E8D1 

78 



SEI 


E8D2 

2C 

00 

18 

BIT 

$1800 

E8D5 

30 

AD 


BMI 

$E804 

E8D7 

A9 

00 


LDA 

«$00 

EaD9 

85 

7D 


STA 

$7D 

E8 DB 

AD 

00 

18 

LDA 

$1800 

E8DE 

29 

EF 


AND 

#$EF 

E8E0 

8D 

00 

18 

STA 

$1800 

E8E3 

A5 

79 


LDA 

$79 

E8E5 

EO 

06 


BEO 

$EBED 

E8E7 

20 

2E 

EA 

JSK 

$EA2E 

EREA 

4C 

E7 

EB 

JHE 

$EBE7 

EBED 

A5 

7A 


LDA 

S7A 

E8EE 

EO 

09 


BEO 

$EeEA 

E8E1 

20 

9C 

E9 

JSR 

$E99C 

E8E4 

20 

AE 

K9 

JSR 

$E9AE 

E8F7 

20 

09 

E9 

JSR 

$E909 

E8EA 

4C 

4E 

EA 

JMP 

$EA4E 

E8ED 

A9 

10 


LDA 

»$10 

E8 EE 

OD 

00 

18 

STA 

$1800 

E902 

2C 

00 

18 

BIT 

$1800 

E905 

10 

DO 


BEL 

$E8D7 

E907 

30 

E9 


UHI 

SE902 


****************************** 


E909 

78 



SEI 


E90A 

20 

EB 

DO 

JSR 

$D0EB 

E90D 

UO 

06 


BCS 

$E915 

E90F 

A6 

82 


LDX 

$82 

E911 

B5 

F2 


LDA 

$E2,X 

E913 

30 

01 


BMI 

$E916 

E915 

60 



RTS 


E916 

20 

59 

EA 

JSR 

$EA59 

E919 

20 

CO 

E9 

JSR 

$E9C0 

E91C 

29 

01 


AND 

*$01 

E91E 

08 



ERE 


E91E 

20 

B7 

E9 

JSR 

$E9U7 

E9 22 

f8 



PLE 


E923 

EO 

12 


BEO 

SB937 

E925 

20 

59 

EA 

JSR 

$EA59 

E928 

20 

CO 

E9 

JSR 

$E9C0 

E9 2B 

29 

01 


AND 

#$01 

E92D 

DO 

F6 


BNE 

SE925 


no 

byte is secondary address 
channcl numbor 


CLOSE? 


CLOSE routine 


set EOI 
IEEE port 

switch data llnes to output 

LISTEN actlvo? 
no 

reccive data 
to delay loop 

TALK active? 
no 

DATA OUT, bit •!’, lo 
CLOCK OUT hi 
send data 
to delay loop 

either TALK or LISTEN,ignoro byte 
switch data lines to input 


wait for handshakc 
send data 

open channol for read 
channcl active 
channel number 
set READ flag? 
yes 

check EOI 
read IEEE port 
isolate data bit 
and save 
CLOCK OUT lo 


check EOI 
read IEEE port 
isolato data bit 
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E9 2F 

A6 

82 


LDX 

$82 

E931 

B5 

F2 


LDA 

SF2,X 

E933 

29 

08 


AND 

#$08 

E935 

DO 

14 


DNE 

$E94B 

E9 37 

20 

59 

EA 

JSK 

SEA59 

E93A 

20 

CO 

E9 

JSR 

$E9C0 

E93D 

29 

01 


AND 

#$01 

E9 3E 

DO 

F6 


BNE 

$E937 

E9<ll 

20 

59 

EA 

OSE 

$EA59 

E944 

20 

CO 

E9 

JSR 

SE9C0 

E947 

29 

01 


AND 

#$01 

E949 

FO 

F6 


BEQ 

$E941 

E84D 

20 

AE 

E9 

JSR 

$E9AK 

E94E 

20 

59 

EA 

JSR 

$EA59 

E951 

20 

CO 

E9 

JSR 

$E9C0 

E954 

29 

01 


AND 

#$01 

E956 

DO 

F3 


BNE 

$E94D 

E958 

A9 

08 


LDA 

#$08 

E9SA 

85 

98 


STA 

$98 

E95C 

20 

CO 

E9 

JSR 

$E9C0 

E9 5E 

29 

01 


AND 

#$01 

E961 

DO 

36 


BNE 

$E999 

E963 

A6 

82 


LDX 

$82 

E965 

BD 

3E 

02 

LDA 

$023E,X 

E968 

6A 



ROR 

A 

E969 

9D 

3E 

02 

STA 

$023E,X 

E96C 

1)0 

05 


BCS 

$E973 

E96E 

20 

A5 

E9 

JSR 

$E9A5 

E971 

DO 

03 


BNE 

SE976 

E973 

20 

9C 

E9 

JSR 

$E99C 

E976 

20 

1)7 

E9 

JSR 

$E9B7 

E979 

A5 

23 


LDA 

$23 

E97H 

DO 

03 


BNE 

SE980 

E97D 

20 

F3 

FE 

JSR 

$FEF3 

E980 

20 

FI) 

FE 

JSR 

SFEFB 

E98 3 

C6 

98 


DEC 

$98 

E9H5 

DO 

D5 


BNE 

$E95C 

E987 

20 

59 

EA 

JSR 

$EA59 

E98A 

20 

CO 

E9 

JSR 

S E9C0 

E98D 

29 

01 


AND 

#$01 

E98E 

FO 

F6 


BEO 

$E987 

R991 

58 



CLI 


E99 2 

20 

AA 

D3 

JSR 

$D3AA 

E995 

78 



SEI 


E996 

4C 

OF 

E9 

JHP 

SE90F 

E999 

4C 

4 E 

EA 

JHP 

$EA4E 


E99C 

AD 

00 

18 

LDA 

$1800 

E99E 

29 

FD 


AND 

#$FD 

E9A1 

8D 

00 

18 

STA 

$1800 

E9A4 

80 



RTS 





channel nuinbcr 


check EOI 
read port 

isolate data bit 

check EOI 
read IEEE port 
isolate data bit 

CLOCK OUT hi 
check EOI 
read IEEE port 
isolate data bit 

countcr to 8 bits for serial 
transmission 
read IEEE port 
isolate data bit 


lowcst bit in carry 
set bit 

DATA OUT, output bit 'O' 
absolute jump 
DATA OUT, output bit '1' 
set CLOCK OUT 


delay Eor serial bus 
set DATA OUT and CLOCK OUT 
all bits output? 
no 

check EOI 
read IEEE port 
isolate data bit 


get next data byte 
and output 
to delay loop 
DATA OUT lo 
output bit '1' 


DATA OUT hi 
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E9A5 

AD 

00 

18 

LDA 

S1800 

E9A8 

09 

02 


ORA 

»$02 

E9AA 

8D 

00 

CO 

STA 

$1800 

E9AD 

60 



RTS 


****************************1 

E9AE 

AD 

00 

18 

LDA 

$1800 

E9U1 

09 

08 


ORA 

#$0B 

E9D3 

8D 

00 

18 

STA 

$1800 

E9B6 

60 



RTS 


****************************1 

E9D7 

AD 

00 

18 

LDA 

$1800 

E9BA 

29 

F7 


AND 

#$F7 

E9UC 

8D 

00 

18 

STA 

$1800 

E9DF 

60 



RTS 


**************************** 

E9C0 

AD 

00 

18 

LDA 

$1800 

E9C3 

CD 

00 

18 

CMP 

$1800 

E9C6 

DO 

F8 


BNE 

$E9C0 

E9C8 

60 



RTS 



E9C9 

A9 

08 


LDA 

#$08 

E9CH 

85 

98 


STA 

$98 

E9CD 

20 

59 

EA 

JSR 

$EA59 

E9D0 

20 

CO 

E9 

JSR 

SE9C0 

E9D3 

29 

04 


AND 

#$04 

E9D5 

DO 

F6 


BNE 

$E9CD 

E9D7 

20 

9C 

E9 

JSR 

$E99C 

E9DA 

A9 

01 


LDA 

#$01 

E9DC 

BD 

05 

18 

STA 

$1805 

E9DF 

20 

59 

EA 

JSR 

$EA59 

E9E2 

AD 

OD 

18 

LDA 

$180D 

E9E5 

29 

40 


AND 

#$40 

E9E7 

DO 

09 


BNE 

$E9F2 

E9E9 

20 

CO 

E9 

JSR 

SE9C0 

E9EC 

29 

04 


AND 

#$04 

E9EE 

FO 

EF 


BEO 

$E9DF 

E9F0 

DO 

19 


BNE 

$EA0B 

E9F2 

20 

A5 

E9 

JSR 

$E9A5 

E9F5 

A2 

OA 


LDY 

#$0A 

E9F7 

CA 



DEX 


E9F8 

DO 

FD 


BNE 

SE9F7 

E9FA 

20 

9C 

E9 

JSR 

$E99C 

E9FD 

20 

59 

EA 

JSR 

$EA59 

BADO 

20 

CO 

E9 

JSR 

$E9C0 

EA03 

29 

04 


AND 

#S04 

EA05 

FO 

F6 


BEO 

SE9FD 

EA07 

A9 

00 


LDA 

»$00 

EA09 

85 

F8 


STA 

$F8 

EAOB 

AD 

00 

18 

LDA 

$1800 

EAOE 

49 

01 


EOR 

#$01 

EAIO 

4A 



LSR 

A 


output bit *0' 


CLOCK OUT hi 
set bit 3 


CLOCK OUT lo 
erase bit 3 


read IEEE port 
read port 

wait for constants 


bit counter for serial output 

check EOI 

read IEEE port 

CLOCK IN? 

no, wait 

DATA OUT, bit '1' 

set timor 
check EOI 

timer run down? 
yes, EOI 
read IEEE port 
CLOCK IN? 
no, wait 

DATA OUT bit '0' hi 
10 

delay loop, approx 50 micro sec. 

DATA OUT, bit •!•, lo 

check EOI 

read IEEE 

CLOCK IN? 

no, wait 

set EOI flag 
IEEE port 
invert data byte 
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EAll 

29 

02 


AND 

«$02 

EA13 

DO 

F6 


DNE 

$EA0B 

EA15 

EA 



NOP 


EA16 

EA 



NOP 


EA17 

EA 



NOP 


BAIO 

66 

85 


ROR 

$85 

EAIA 

20 

59 

EA 

JHR 

$EA59 

EAID 

20 

CO 

E9 

JSR 

$E9C0 

EA20 

29 

04 


AND 

#$04 

EA22 

FO 

F6 


BEO 

$EA1A 

EA24 

C6 

98 


DEC 

$98 

EA26 

DO 

E3 


DNE 

$EA0B 

EA28 

20 

A5 

E9 

JSR 

$E9A5 

EA2» 

A5 

85 


LDA 

$85 

EA2D 

60 



RTS 


**************************** 

EA2E 

78 



SEI 


EA2E 

20 

07 

DI 

JSR 

$D107 

EA32 

DO 

05 


BCS 

$EA39 

EAl-l 

B5 

F2 


LDA 

$F2,X 

EA36 

6A 



ROR 

A 

EA37 

DO 

OD 


BCS 

$EA44 

EA39 

A5 

84 


LDA 

$84 

EA3H 

29 

FO 


AND 

#$F0 

EA3D 

C9 

FO 


CMP 

#$F0 

E A3 E 

FO 

03 


DEO 

$EA44 

EA41 

4C 

4E 

EA 

JMP 

$EA4E 

E A4 4 

20 

C9 

E9 

JSR 

$E9C9 

EA47 

58 



CLI 


RA48 

20 

D7 

CF 

JSR 

$CFD7 

EA4B 

4C 

2E 

EA 

JMP 

SEA2E 

EA4 E 

A9 

00 


LDA 

#$00 

EA50 

8U 

00 

18 

STA 

$1800 

EA53 

4C 

E7 

ED 

JMP 

$EDE7 

EA56 

4C 

5B 

E8 

JMP 

$EB58 


EA59 

A5 

7D 


LDA 

$7D 

EA5B 

FO 

06 


BEO 

$EA63 

EA5D 

AD 

00 

18 

LDA 

$1800 

EA60 

10 

09 


DPL 

$EA6D 

EA62 

60 



RTS 


EA63 

AD 

00 

18 

LDA 

$1800 

EA66 

10 

FA 


DPL 

$EA62 

EA68 

4C 

D7 

E8 

JMP 

$E8D7 

»»»***»»»******»**»*»*»***** 

EA6E 

A2 

00 


LDX 

#$00 

EA70 

2C 



•BYTE S2C 


CLOCK IN? 


prepare next bit 
check EOI 
read IEEE port 
CLOCK IN? 
no 

decrement bit counter 
all bits output? 

DATA OUT, bit '0', hi 
load data byte again 

accept data from serial bus 

open channel £or writing 
channel not active? 

WRITE flag 

not set? 

secondary addross 

OPEN command? 
yes 

to wait loop 

get data byte from bus 

and write in buffer 
to loop heginning 


reset IEEE port 
to wait loop 

to serial bus tnain loop 


EOI received? 
yes 

IEEE port 


IEEE port 

set EOI, serve serial bus 

blink LED tor hardware dcfects 
blink once, zero page 
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EA71 

A5 

6F 


LDX 

$6F 

EA7 3 

9A 



TXS 


EA74 

»A 



TSX 


EA75 

A9 

08 


LDA 

«$08 

EA77 

OD 

00 

IC 

ORA 

SICOO 

EA7A 

4C 

EA 

FE 

JMP 

SFEEA 

EA7D 

98 



TXA 


EA7E 

18 



CLC 


EA7F 

69 

01 


ADC 

#S01 

EA81 

DO 

FC 


BNE 

SEA7F 

EA83 

88 



DEY 


EAB4 

DO 

F8 


BNE 

SEA7E 

E AB 6 

AD 

00 

IC 

LDA 

SICOO 

EA89 

29 

F7 


AND 

#$F7 

EA6B 

8D 

00 

IC 

STA 

SICOO 

EA8E 

98 



TYA 


BA8F 

18 



CLC 


EA90 

69 

01 


ADC 

#S01 

EA92 

DO 

FC 


BNE 

SEA90 

EA94 

88 



DEY 


EA95 

DO 

F8 


BNE 

SEA8F 

EA97 

CA 



DEX 


EA98 

10 

DB 


BPL 

SEA75 

EA9A 

EO 

FC 


CPX 

#SFC 

EA9C 

DO 

FO 


BNE 

SRA8E 

EA9E 

FO 

D4 


BEO 

$EA74 


****************************** 


EAAO 

78 


SEI 


EAAl 

D8 


CLD 


EAA2 

A2 

FF 

LDX 

#SFF 

BAA4 

8E 

03 18 

HTX 

S1003 

EAA7 

E8 


INX 


EAAO 

AO 

00 

LDY 

ItSOO 

EAAA 

A2 

00 

LDX 

»S0U 

EAAC 

8A 


TXA 


EAAD 

95 

00 

STA 

S00,X 

EAAF 

EB 


INX 


EAUO 

DO 

FA 

BNE 

SEAAC 

EAB2 

8A 


TXA 


EAB3 

D5 

00 

CMP 

S00,X 

EAB5 

DO 

B7 

BNE 

SEA6E 

EAD7 

F6 

00 

INC 

S00,X 

EAU9 

C8 


INY 


EABA 

DO 

FB 

BNE 

SEAB7 

EABC 

D5 

00 

CMP 

$00,X 

EABE 

DO 

AE 

BNE 

SEA6E 

EACO 

94 

00 

STY 

S00,X 

EAC2 

B5 

00 

LDA 

$00,X 

EAC4 

DO 

A8 

BNE 

SEA6E 

EAC6 

E8 


INX 


EAC7 

DO 

E9 

BNE 

$EAB2 

EAC9 

E6 

6F 

INC 

$6F 

EACB 

86 

76 

STX 

$76 

EACD 

A9 

00 

LDA 

ItSOO 


blink X+1 tiines toc RAM/ROM err 

solect LEO bit in thè port 
turn LEO on, back to SEA7D 

turo LEO off 

delay loop 


RESET routine 

port A to output 

oraso zero pago 

is byte orased? 

no, then to error display (blink) 

error 

error 


wait for delay 
turn LED on again 
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EACF 

85 

75 


STA 

$75 

BADI 

A8 



TAT 


BAD2 

A2 

20 


LDX 

«$20 

EAD4 

18 



CLC 


EAD5 

C6 

76 


DEC 

$76 

EAD7 

71 

75 


ADC 

($75) ,Y 

EAD9 

C8 



INY 


BADA 

DO 

FB 


ONE 

$EAD7 

EADC 

CA 



DEX 


BADO 

DO 

F6 


BNB 

$EAD5 

EADF 

69 

00 


ADC 

#$00 

BAEl 

AA 



TAX 


BAE2 

C5 

76 


CMP 

$76 

EAE4 

DO 

39 


BNE 

$EB1F 

KAE6 

EO 

CO 


CPX 

#$C0 

EAE8 

DO 

DF 


BNE 

$EAC9 

EAEA 

A9 

01 


LDA 

#$01 

BABC 

85 

76 


STA 

$76 

EAEK 

E6 

6F 


INC 

$6F 

EAl'O 

A2 

07 


LDX 

#$07 

EAl'2 

98 



TYA 


EAl'3 

18 



CLC 


EAl'4 

65 

76 


ADC 

$76 

EAI'A 

91 

75 


STA 

($75),Y 

EAl-ll 

CO 



INY 


EAI'9 

DO 

F7 


HNE 

SEAF2 

EAI’H 

E6 

76 


INC 

$76 

EAl-D 

CA 



DEX 


EAI'i: 

DO 

F2 


HNE 

$EAF2 

EllOO 

A2 

07 


LDX 

#$07 

E HO 2 

C6 

76 


DEC 

$76 

EH04 

88 



DEY 


E110 5 

90 



TYA 


E HO 6 

10 



CLC 


EU07 

65 

76 


ADC 

$76 

E HO 9 

DI 

75 


CMP 

($75),Y 

EROI» 

DO 

12 


BNE 

$EnlF 

EHOn 

49 

FF 


EOR 

#$FF 

EHOF 

91 

75 


STA 

($75),Y 

EHI 1 

51 

75 


EDR 

($75),Y 

EH 13 

91 

75 


STA 

($75),Y 

EHI 5 

DO 

08 


HNE 

$EH1F 

EU17 

98 



TYA 


EHI 8 

DO 

EA 


BNE 

$En04 

EHIA 

CA 



DEX 


EHIM 

DO 

E5 


BNE 

$EH02 

ElUD 

KO 

03 


BEO 

$EB22 

EBIF 

4C 

71 

EA 

JMP 

$EA71 

EH22 

A2 

45 


LDX 

#$45 

EB24 

9A 



TXS 


RB25 

AD 

00 

IC 

LDA 

$1COO 

EH2B 

29 

F7 


AND 

#$F7 

BH2A 

8D 

00 

IC 

STA 

$1C00 

EB2D 

A9 

01 


LDA 

#$01 


tost 32 pages 


test ROM 

ROM crror 

test RAM, bcginning at page 7 


RAM error 

RAM error 

continuo test 
ok 

to error display 

initialize stack pointer 
turn LEO off 
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iì;b2f 

8D 

OC 18 

STA 

$180C 

e:b32 

A9 

82 

LDA 

#$82 

BB34 

8D 

OD 18 

STA 

$180D 

EB37 

8D 

OE 18 

STA 

$180E 

e:b3a 

AD 

00 18 

LDA 

$1800 

EB3D 

29 

60 

AND 

#$60 

ED3F 

OA 


ASL 

A 

EB40 

2A 


ROL 

A 

EB41 

2A 


ROL 

A 

CB42 

2A 


ROL 

A 

BB43 

09 

48 

ORA 

#$48 

EB45 

85 

78 

STA 

$78 

EB47 

49 

60 

EOR 

#$60 

BB49 

85 

77 

STA 

$77 

EB4B 

A2 

00 

LDX 

#S00 

EB4D 

AO 

00 

LDY 

#$00 

EB4 F 

A9 

00 

LDA 

»$00 

EBBI 

95 

99 

STA 

$99,X 

BB53 

E8 


INX 


EB54 

B9 

EO FB 

LDA 

$FEE0,Y 

BU57 

95 

99 

STA 

$99 ,X 

EB59 

E8 


INX 


BBSA 

C8 


INY 


EB5B 

CO 

05 

CPY 

#$05 

EB5D 

DO 

FO 

BNE 

$ED4F 

EB5F 

A9 

00 

LDA 

#$00 

BB61 

95 

99 

STA 

$99,X 

EB63 

E8 


INX 


EB64 

A9 

02 

LDA 

#$02 

Enee 

95 

99 

STA 

$99,X 

EB68 

B8 


INX 


BB69 

A9 

D5 

LDA 

#$D5 

BSeB 

95 

99 

STA 

$99,X 

ER6D 

B8 


INX 


BB6E 

A9 

02 

LDA 

#$02 

BB70 

95 

99 

STA 

$99,X 

BB72 

A9 

FF 

LDA 

#$FF 

EB74 

A2 

12 

L11X 

#$12 

BB76 

9D 

2B 02 

SFA 

$022B,X 

EB79 

CA 


DEX 


i:b7a 

10 

FA 

BPL 

$EB76 

EB7C 

A2 

05 

LDX 

«$05 

EB7E 

95 

A7 

STA 

$A7,X 

EB80 

95 

AB 

STA 

SAE,X 

BBS 2 

95 

CD 

STA 

$CD,X 

EB84 

CA 


DEX 


EB85 

10 

F7 

BPL 

$EB7E 

EB87 

A9 

05 

LDA 

#$05 

ED89 

85 

AB 

STA 

$AB 

BB8B 

A9 

06 

LDA 

#S06 

EB8U 

85 

AC 

STA 

$AC 

BB8F 

A9 

FF 

LDA 

#$FF 

EB91 

85 

AD 

STA 

$An 

EB93 

85 

B4 

STA 

$B4 

EB9 5 

A9 

05 

LDA 

#805 


CAI (ATN IN) trigger on pos odgo 
interrupt posstble through ATN IN 
read port B 

isolate bits 5 & 6 (device #) 


rotate to bit positions 0 & 1 

add offset froin 8 + $40 for TALK 
devico numbor for TALK (send) 
erase bit 6, set bit 5 
dovico nuinbcr + $20 for LISTKN 


low-byte of buffer addross 

high byte of addross from table 
save 


ptr $A3/$A4 to $200, input buffer 


pointer $A5/$A6 to $2D5, error 
message pointer 


fili channel tablc with SFF 


eraso buffer table 
erase side-sector table 


buffer 5 

associate with channel 4 
buffer 6 

associate with channel 5 
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EB97 

8D 

3B 

02 

STA 

S023B 

EB9A 

A9 

84 


EDA 

l(S84 

ED9C 

8D 

3A 

02 

STA 

$023A 

EB9F 

A9 

OE 


EDA 

#$0P 

EBAl 

8D 

56 

02 

STA 

$0256 

EBA4 

A9 

01 


EDA 

#$01 

EBA6 

85 

E6 


STA 

$E6 

EBA8 

A9 

88 


EDA 

#$88 

EBAA 

85 

E7 


STA 

$E7 

EBAC 

A9 

EO 


EDA 

#$E0 

EBAE 

8D 

4E 

02 

STA 

$024E 

EBBI 

A9 

EE 


EDA 

#$EF 

EBB3 

8D 

50 

02 

STA 

$0250 

EBB6 

A9 

01 


EDA 

#$01 

EBB8 

85 

IC 


STA 

$1C 

EBBA 

85 

ID 


STA 

$1D 

EBBC 

2(1 

63 

CB 

JSP 

$CB63 

EBBE 

20 

EA 

CE 

JSR 

$CEFA 

EDC2 

20 

59 

E2 

JSR 

$F259 

EBC5 

A9 

22 


EDA 

#$22 

EBC7 

85 

65 


STA 

$65 

EBC9 

A9 

EB 


EDA 

#$EB 

BUCB 

85 

66 


STA 

$66 

EBCU 

A9 

OA 


EDA 

#$0A 

EHCF 

85 

69 


STA 

$69 

EBDl 

A9 

05 


EDA 

#$05 

EBD3 

85 

6A 


STA 

$eA 

EBD5 

A9 

73 


EDA 

#$73 

EDD7 

20 

CI 

E6 

JSR 

$E6C1 

EBDA 

A9 

lA 


EDA 

#$1A 

EBDC 

8D 

02 

18 

STA 

$1802 

EBDE 

A9 

00 


EDA 

#$00 

EBBI 

8D 

00 

18 

STA 

$1800 

EBE4 

20 

80 

E7 

JSR 

SE780 

EBE7 

5H 



CEI 


EBE8 

AD 

00 

18 

EDA 

$1800 

EBEB 

29 

E5 


AND 

#$E5 

EH ED 

8D 

00 

18 

STA 

$1800 

EBFO 

AD 

55 

02 

EDA 

$0255 

EDE3 

EO 

OA 


BEO 

SEBEE 

EBE 5 

A9 

00 


t.DA 

#$00 

EBE7 

8D 

55 

02 

STA 

$0255 

EBEA 

85 

67 


STA 

$67 

EBEC 

20 

46 

CI 

JSR 

$C146 

*************** 


EBEE 

58 



CEI 


ECCO 

A5 

7C 


EDA 

$7C 

EC02 

EO 

03 


BEO 

$EC07 

EC04 

4C 

5B 

EO 

JMB 

Si;05B 

EC07 

50 



CEI 


EC08 

A9 

OE 


EDA 

#$0E 

ECOA 

85 

72 


STA 

$72 

ECOC 

A9 

00 


EDA 

»$00 

ECO E 

85 

6 E' 


STA 

$6E 


channcl 5 WRITE flag crased 

channel 4 WRITB flag set 
initiallze channel allocation reg 
bit '1' equals channel free 

WRITE flag 

READ flag 
5 buffers free 

Initialize buffer allocation reg 
S24F/$250, 16 bit 


flags for WRITE protect 

set vector for UO 
initialize channel table 
intialization for disk controller 


pointer $65/$66 to $EB22 


stop width 10 
for sector assignment 
5 read attcmpts 
prepare power-up message 
73, ’cbra dos v2.6 1541' 
bit 1, 3 & 4 to exit 
data direction of port n 

erase data register 
check for auto-start 


reset serial port 

command flag set? 
no 

reset command flag 
analyzc and cxccute command 
wait loop 

ATN signal discovorod? 
no 

to IEEE routine 
14 

as secondary addrcss 
job counter 
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ECIO 

85 

70 


STA 

$70 

EOI 2 

A6 

72 


LDX 

$72 

EC14 

HD 

28 

02 

LDA 

$022H,X 

EC17 

C9 

FF 


CMP 

#$FF 

EC19 

FO 

10 


8E0 

$EC2B 

ECHI 

26 

3P 


AND 

#$3F 

ECID 

85 

82 


STA 

$82 

ECIE 

20 

93 

DP 

JSR 

$DF93 

EC22 

AA 



TAX 


EC2 3 

BD 

58 

02 

LDA 

$0258,X 

EC2e 

29 

01 


AND 

#$01 

EC28 

AA 



TAX 


EC29 

F6 

6F 


INC 

$6F,X 

EC2U 

C6 

72 


DEC 

$72 

EC2D 

10 

E3 


8FL 

$EC12 

EC2E 

AO 

04 


LDY 

#$04 

BC31 

89 

00 

00 

LDA 

$0000,Y 

EC34 

10 

05 


UPL 

$EC3n 

EC36 

29 

01 


AND 

«$01 

EC38 

AA 



TAX 


EC39 

F6 

6F 


INC 

$6F,X 

EC3n 

88 



DEY 


EC3C 

10 

F3 


8PL 

$EC31 

EC3E 

78 



SEI 


EC31' 

AD 

00 

IC 

LDA 

$1COO 

EC42 

29 

F7 


AND 

#$F7 

EC44 

48 



PHA 


EC4 5 

A5 

7F 


LDA 

$7F 

EC47 

85 

86 


STA 

$86 

EC49 

A9 

00 


LDA 

#$00 

EC4U 

85 

7F 


STA 

$7F 

EC4D 

A5 

6F 


LDA 

$6F 

EC4F 

FO 

08 


8EQ 

$EC5C 

EC51 

A5 

IC 


LDA 

SIC 

EC53 

FO 

03 


BEO 

$EC58 

EC55 

20 

13 

D3 

JSR 

$D313 

EC58 

68 



PLA 


EC59 

09 

08 


ORA 

#$08 

EC5b 

48 



PIIA 


EC5C 

E6 

7F 


INC 

$7F 

ECSE 

A5 

70 


LDA 

$70 

EC60 

FO 

08 


BEO 

$EC6D 

EC62 

A5 

ID 


LDA 

$1D 

EC64 

FO 

03 


BEO 

$EC69 

EC66 

20 

13 

D3 

JSR 

$D313 

EC69 

68 



PLA 


EC6A 

09 

00 


ORA 

#soo 

EC6C 

48 



PHA 


nC6D 

A5 

86 


LDA 

$86 

EC6F 

85 

7F 


STA 

$7F 

EC71 

68 



PLA 


KC7 2 

AE 

6C 

02 

LDX 

$026C 

EC75 

FO 

21 


BEO 

$EC98 

EC77 

AD 

00 

IC 

LDA 

$1C00 

EC7A 

EO 

80 


CPX 

»$80 


secondary address 
channcl associated? 
no 

channel numbcr 
get buffer number 

drive number 


increment job counter 

lo address 

continue search 

buffer counter 

disk controller in action? 

no 

isolate drive number 
increment job counter 
next buffer 


crase LIì:D bit 
drive number 


drive 0 

job for drive 0? 
no 

write protect for drive 0? 
no 

dose all channels to drive 0 

set LED bit 

increment drive number 
job for drive 1? 
no 

write protect for drive 1? 
no 

dose all channels to drive 1 


get drive number back 
bit for LEf) 
intcrrupt counter 
to zero? 
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EC7C 

DO 

03 


BNE 

SEC81 

EC7E 

4C 

8B 

EC 

aMF 

SEC8B 

EC81 

AE 

05 

18 

LDX 

$1805 

EC84 

30 

12 


BMI 

SEC98 

KC86 

A2 

AO 


LDX 

#$A0 

ECU8 

8E 

05 

18 

STX 

$1805 

EC8I( 

CE 

6C 

02 

DEC 

$(I26C 

EC8E 

DO 

08 


BNE 

$EC98 

EC90 

4D 

6D 

02 

EOR 

$026D 

EC93 

A2 

10 


LDX 

*$10 

EC95 

8E 

6C 

02 

STX 

$026C 

EC98 

8D 

00 

IC 

STA 

SICOO 

EC9« 

4C 

FF 

EB 

JMP 

$EBFF 


EC9E 

A9 

00 


LDA 

#$00 

ECAO 

85 

83 


STA 

$83 

ECA2 

A9 

01 


LDA 

l$01 

ECA4 

20 

E2 

DI 

JSR 

$D1E2 

ECA7 

A9 

00 


LDA 

#$00 

ECA9 

20 

C8 

D4 

JSR 

$D4C8 

ECAC 

A6 

82 


LDX 

$82 

ECAE 

A9 

00 


LDA 

»$00 

ECBO 

9D 

44 

02 

STA 

$0244,X 

ECB3 

20 

93 

DF 

JSR 

$DF93 

ECB6 

AA 



TAX 


ECB7 

A5 

7F 


LDA 

S7F 

ECD9 

9D 

5B 

02 

STA 

$025B,X 

ECBC 

A9 

01 


LDA 

#S01 

ECBE 

20 

FI 

CF 

JSR 

$CFF1 

ECCl 

A9 

04 


LDA 

#$04 

ECC3 

20 

FI 

CF 

JSR 

SCFFl 

ECC6 

A9 

01 


LDA 

#$01 

ECC8 

20 

FI 

CF 

JSR 

SCFFl 

ECCH 

20 

FI 

CF 

JSR 

SCFFl 

ECCE 

AD 

72 

02 

LDA 

$0272 

ECDl 

20 

FI 

CF 

JSR 

SCFFl 

ECD4 

A9 

00 


LDA 

#$0Q 

ECD6 

20 

FI 

CF 

JSR 

SCFFl 

ECD9 

20 

59 

ED 

JSR 

$ED59 

ECDC 

20 

93 

DF 

JSR 

$DF9 3 

ECDE 

OA 



ASL 

A 

ECEO 

AA 



TAX 


ECKl 

D6 

99 


DEC 

$99,X 

ECE3 

D6 

99 


DEC 

$99 ,X 

ECE5 

A9 

00 


LDA 

#$00 

ECE7 

20 

FI 

CF 

JSR 

SCFFl 

ECEA 

A9 

01 


LDA 

#$01 

ECEC 

20 

FI 

CF 

JSR 

SCFFl 

ECEE 

20 

FI 

CF 

JSR 

SCFFl 

ECE2 

20 

CE 

C6 

JSR 

$C6CE 

ECF5 

90 

2C 


BCC 

$CD23 

ECK7 

AD 

72 

02 

LDA 

$0272 

ECFA 

20 

FI 

CF 

JSR 

SCFFl 

ECFD 

AD 

73 

02 

LDA 

$0273 


erase timer interrupt 


set timer 
decremcnt countcr 
not yet zero? 


reset counter 
turn LED on/o£f 
back to wait loop 

LOAD "$“ 

secondary address 0 

find channel and buffer 

initialize buffer pointer 
channel number 

pointer to end = zero 
get buffer number 

drive number 
bring in table 
1 

write in buffer 
4, start address $0401 
write in buffer 
2 times 1 

write in buffer as link address 
drive number 

write in buffer as line number 
line number hi 
in buffer 

directory entry in buffer 
get buffer number 


decrement buffer pointer 


0 as line end in buffer 

2 times 1 as link address 

directory entry in buffer 
another entry? 
block number lo 
in buffer 
block number hi 
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BDOO 

20 

FI 

CF 

JSR 

$CFF1 

E003 

20 

59 

ED 

JSR 

$BD59 

ED06 

A9 

00 


LDA 

#$00 

ED08 

20 

FI 

CF 

JSR 

SCFFl 

EDOB 

DO 

DD 


ONE 

$ECEA 

EDOD 

20 

93 

DF 

JSR 

$DF93 

EDIO 

OA 



ASL 

A 

EDll 

AA 



TAX 


ED12 

A9 

00 


LDA 

»$00 

ED14 

95 

99 


STA 

$99,X 

ED16 

A9 

88 


LDA 

#588 

EDI 8 

A4 

82 


LDY 

$82 

EDIA 

8D 

54 

02 

STA 

$0254 

EOID 

99 

F2 

00 

STA 

$00F2,Y 

ED20 

A5 

85 


LDA 

$85 

ED22 

60 



RTS 



****************************** 


ED23 

AD 

72 

02 

LDA 

$0272 

ED26 

20 

FI 

CF 

JSR 

$CFF1 

ED29 

AD 

73 

02 

LDA 

$0273 

ED2C 

20 

FI 

CF 

JSR 

$CFF1 

ED2F 

20 

59 

ED 

JSR 

$ED59 

ED32 

20 

93 

DF 

JSR 

$DF93 

ED35 

OA 



ASL 

A 

ED36 

AA 



TAX 


ED37 

D6 

99 


DEC 

$99,X 

ED39 

D6 

99 


DEC 

$99,X 

ED3R 

A9 

00 


LDA 

#$00 

ED3D 

20 

FI 

CF 

JSR 

$CFF1 

ED40 

20 

FI 

CF 

JSR 

$CFF1 

ED43 

20 

FI 

CF 

JSR 

$CFF1 

ED46 

20 

93 

DF 

JSR 

$DF9 3 

ED49 

OA 



ASL 

A 

ED4A 

A8 



TAV 


ED41Ì 

D9 

99 

02 

LDA 

$0099,y 

ED4E 

A6 

82 


LDX 

$82 

ED50 

9D 

44 

02 

STA 

$0244,X 

ED53 

DE 

44 

02 

DEC 

$0244,X 

ED56 

4C 

OD 

ED 

JMP 

$ED0D 

✓ 

*****************************] 

ED59 

AO 

00 


LDY 

#$00 

ED5B 

D9 

U1 

02 

LDA 

$0201,y 

ED5E 

20 

FI 

CF 

JSR 

$CFF1 

EDEl 

C8 



INY 


ED62 

CO 

ID 


cpy 

#$1B 

EDe4 

DO 

F5 


RNE 

$ED5B 

ED66 

60 



RTS 


«A***************************: 

ED67 

20 

37 

DI 

JSR 

$D137 

ED6A 

FO 

01 


BEO 

$ED6D 

BD6C 

60 



RTS 



in buffer 

directory entry in buffer 

zero as end marker in buffer 
buffer full? no 
get buffer number 


buffer pointer to zero 
set RGAU flag 
channcl number 

flag for channcl 
data byte 


block number lo 
write in buffer 
block number hi 
in buffer 

Mllocks free.' in buffer 
get buffer number 


buffer pointer minus 2 


three zeroes as program end 

get buffer number 
times 2 

buffer pointer 
as end marker 


transmit directory line 

character from buffer 
write in output buffer 

27 characters? 


get byte from buffer 
get byte 

buffer pointer zero? 
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ED6D 

85 

85 


STA 

$85 

ED6F 

A4 

82 


LDV 

$82 

ED71 

B9 

44 

02 

LDA 

$0244,Y 

ED74 

FO 

08 


BEO 

SED7E 

ED76 

A9 

80 


LDA 

#$80 

ED78 

99 

F2 

00 

STA 

$00F2,Y 

ED7B 

A5 

85 


LDA 

$85 

ED7D 

60 



RTS 


ED7E 

48 



PHA 


ED7F 

20 

EA 

EC 

JSR 

$ECEA 

ED82 

68 



PLA 


ED83 

60 



RTS 


*****************************, 

ED84 

20 

DI 

CI 

JSR 

SCIDI 

ED87 

20 

42 

DO 

JSR 

SD04 2 

EU8A 

A9 

40 


LDA 

#$40 

ED8C 

8D 

F9 

02 

STA 

$02F9 

ED8F 

20 

B7 

EE 

JSR 

$EEB7 

ED92 

A9 

00 


LDA 

#$00 

ED94 

8D 

92 

02 

STA 

$0292 

ED97 

20 

AC 

C5 

JSR 

$C5AC 

ED9A 

DO 

3D 


BNE 

SEDD9 

ED9C 

A9 

00 


LDA 

#$00 

ED9E 

85 

81 


STA 

$81 

EDAO 

AD 

8E 

FE 

LDA 

$FE85 

EDA3 

85 

80 


STA 

$80 

EDAS 

20 

E5 

ED 

JSR 

$i;de5 

EDA8 

A9 

00 


LDA 

#$00 

EDAA 

8D 

F9 

02 

STA 

$02F9 

EDAD 

20 

FF 

EE 

JSR 

SEEFF 

EDHO 

4C 

94 

CI 

JMP 

$C194 




EDB3 

C8 



INY 


EDB4 

B1 

94 


LDA 

($94),Y 

ED86 

48 



PHA 


EDU7 

C8 



INY 


EDI)8 

B1 

94 


LDA 

($94),Y 

liDllA 

48 



l'IlA 


EDBB 

AO 

13 


LDA 

#$13 

EDBD 

B1 

94 


l,DA 

($94) ,Y 

EDBF 

FO 

OA 


BEO 

$EDCU 

EDCl 

85 

80 


STA 

$80 

EDC3 

C8 



INY 


EDC4 

B1 

94 


LDA 

($94) ,Y 

EDC6 

85 

81 


STA 

$81 

EDC8 

20 

E5 

ED 

JSR 

$EDE5 

EDCB 

68 



PLA 


EDCC 

85 

81 


STA 

$81 

EDCB 

68 



PLA 


EDCF 

85 

80 


STA 

$80 

EDDl 

20 

E5 

ED 

JSR 

$EDE5 

EDD4 

20 

04 

C6 

JSR 

$0604 


save data byte 
channel number 
set end marker 
zero (LOAD $)? 

set READ flag 
data byte 


create directory line in buffer 


V command, 'collect' 

find drive number in input line 

load RAM 


creato new BAM in buffer 


load directory, find Ist flag 
found? 

sector 0 
18 

track 18 for BAH 

mark dir blocks as allocated 


write BAH back to disk 
done, prepare disk status 


save track 


and sector 

pointer to side-sector block 

no track following? 
track and 


sector of Ist side-sector block 
mark side-sector blocks as 
allocated 

get track and sector back 

tnark blocks of file as allocated 
road noxt entry in directory 
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EDD7 

KO 

C3 


BEO 

$ED9C 

ED1)9 

AO 

00 


LDY 

#S00 

EUDB 

B1 

94 


LDA 

($94) ,Y 

EDDD 

30 

D4 


DMI 

$EDB3 

E DDK 

20 

B6 

CO 

JSU 

$C0B6 

EDE2 

4C 

04 

ED 

JMP 

$EDD4 

** i , i ,*»»*»* i ,* i ,**»**» i , t *** i , t * i , i,i 

EDE5 

20 

5K 

D5 

JSK 

SD55K 

EDEB 

20 

90 

EF 

JSK 

SEK90 

E DEB 

20 

75 

D4 

JSR 

$D475 

EDEE 

A9 

00 


LDA 

«$00 

EDKO 

20 

CO 

D4 


$D4CB 

EDK3 

20 

37 

Di 

JSR 

$D137 

EDK6 

05 

00 


STA 

$00 

EDKO 

20 

37 

DI 

JSR 

$D137 

EDKB 

05 

01 


STA 

$81 

EDKD 

A5 

00 


LDA 

$00 

EDKP 

DO 

03 


BNC 

$CE04 

E EOI 

4C 

27 

1)2 

JMl> 

$D227 

EE04 

20 

90 

EK 

JSR 

$EK90 

EE07 

20 

4D 

D4 

JSR 

Sl)44D 

EEOA 

4C 

EE 

1:1) 

JMP 

SEDEE 

*****************************1 

EEOD 

20 

12 

C3 

JSR 

SC312 

EEIO 

A5 

E2 


LDA 

$E2 • 

EE12 

10 

05 


BPL 

$KK19 

EE14 

A9 

33 


LDA 

«S33 

EE16 

4C 

CO 

CI 

JMP 

$C1C8 

EE19 

29 

01 


AND 

#$01 

EEIB 

05 

7K 


STA 

S7P 

EEID 

20 

00 

CI 

JSR 

SClOO 

KE20 

A5 

7K 


LDA 

$7K 

EE22 

OA 



ASL 

A 

EE2 3 

AA 



TAX 


KE24 

AC 

7D 

02 

LDY 

$027B 

EE27 

CC 

74 

02 

CPY 

$0274 

EE2A 

KO 

lA 


liFO 

SEE46 

EE2C 

B9 

00 

02 

l.pA 

$0200,Y 

EE2K 

95 

12 


STA 

$12,X 

EE31 

B9 

01 

02 

[.DA 

$0201,Y 

EE34 

95 

13 


STA 

$13,X 

EE3r> 

20 

07 

D3 

JSR 

$D307 

EE39 

A9 

ni 


LDA 

#$01 

EE3B 

05 

00 


STA 

$00 

BE3D 

20 

C6 

CO 

JSR 

$CHC6 

EE40 

20 

05 

PO 

JSR 

$K005 

EE4 3 

4C 

56 

EE 

JMP 

$EE56 

EE46 

20 

42 

DO 

JSR 

$D042 

EE49 

A6 

7K 


LDX 

S7K 

EE4B 

BD 

01 

01 

LDA 

$0101,X 

EE4E 

CD 

D5 

KE 

CMP 

$KKD5 


end ot directory? 
file type 

bit 7 set, file closed? 

filo type to zero and write BAH 


allocate file blocks in BAH 
check track and sector numbcr 
allocate block in BAH 
rcad next block 

buffer pointer zero 
ijet byte from buffer 
track 

get byte from buffer 
sector 

anothor block? 
ycs 

dose channcl 

allocato block in BAH 
read next block 
continue 

N command, ’header* 
get drive numbor 
drive numbor 
not clear? 

33, ’syntax error’ 

drive numbor 
turn LKD on 
drive number 
timcs 2 

comma position 
compare with end narao 
format without II) 
first charactor of ID 
save 

socond charactor 

doso all channels 

track 1 
format disk 
eraso buffer 
continue as bdow 

load BAH 
drive number 

'A', marker for 1541 format 
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RB51 

FO 

03 


BEO 

SEE56 

EE53 

4C 

72 

D5 

JMF 

SD572 

Kt'56 

20 

B7 

RE 

JSR 

SEEB7 

EE59 

A5 

F9 


LDA 

SF9 

EE5B 

A8 



TAY 


EE5C 

OA 



ASL 

A 

EE5n 

AA 



TAX 


EB5E 

AD 

88 

FE 

EDA 

$FE88 

KE61 

95 

99 


STA 

S99,X 

F.E63 

AF. 

7A 

02 

I.DX 

S027A 

BE66 

A9 

IB 


I.DA 

«$1B 

Et:68 

20 

6 E 

C6 

JSR 

SC66E 

KE6B 

AO 

12 


LDY 

#S12 

EE6D 

Afi 

7F 


LDX 

S7F 

EEfiE 

AD 

D5 

FE 

EDA 

$FED5 

Ei:7 2 

9D 

01 

01 

STA 

SOIOI,X 

EE75 

8A 



TX A 


EE7 6 

OA 



ASL 

A 

ER77 

AA 



TAX 


rf;78 

B5 

12 


LDA 

S12,X 

i;e7a 

91 

94 


STA 

(S94) ,Y 

EE7C 

C8 



INY 


BR7D 

B5 

13 


LDA 

S13,X 

EE7B 

91 

94 


STA 

(S94) ,Y 

ERB 1 

C8 



INY 


EB82 

C8 



INY 


RE83 

A9 

32 


LDA 

(tS32 

EE85 

91 

94 


STA 

(S94) ,Y 

RE87 

C8 



INY 


EB88 

AD 

05 

FE 

LDA 

SFED5 

BE8U 

91 

94 


STA 

(S94),Y 

RERD 

AO 

02 


LDY 

»$02 

EE8F 

91 

fio 


STA 

(S6D) ,Y 

RR91 

AD 

85 

FE 

LDA 

SFE05 

EE94 

85 

80 


STA 

$80 

RB96 

20 

93 

RF 

JSR 

$RF93 

EE99 

A9 

01 


LDA 

#S01 

KR9B 

85 

81 


STA 

S81 

KE9D 

20 

93 

RF 

JSR 

SRF93 

RRAO 

20 

RF 

RE 

JSR 

SEEFF 

BEA3 

20 

05 

FO 

JSR 

SF005 

KRAf. 

AO 

01 


LDY 

#$01 

RRA8 

A9 

FF 


LDA 

#$FF 

RRAA 

9A 

6D 


STA 

(S6D),Y 

RRAC 

20 

64 

n4 

JSR 

$0464 

RRAR 

C6 

81 


DEC 

$81 

RRHl 

20 

60 

D4 

JSR 

SD460 

RRI<4 

4C 

9 4 

CI 

JMF 

$C194 

********* 

• *ii<..*É>«***«******* 

ERB7 

20 

DI 

FO 

JSR 

$F0D1 

EEBA 

AO 

00 


LDY 

l$00 

KPBC 

A9 

12 


LDA 

«$12 

EBBE 

91 

6D 


STA 

(S6D) ,Y 


ok 

73, ’cbm dos v2.6 1541’ 

create BAH 
buffer number 


S90, start of disk name 
buffer pointer to name 

27 

write filenames in buffer 
position 18 
drive number 
'A', 1541 format 


times 2 

IH, first character 
in buffer 

and second character 
in buffer 


• 2 ’ 

in buffer 

’A' 1541 format 

in buffer 

and at position 2 
18 

track number 
mark block os allocatcd 
1 

scctor number 

mark block as allocatcd 

write BAM 

pointer S6D/S6E to buffer, erase 
buffer 

track followintj is zero 
write BAM 

docroment scctor number, 0 

rcad block 

preparo disk status 

croato BAH 


18 

pointer to directory track 
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BECO 

C8 



INY 


EECl 

98 



TYA 


EEC2 

91 

6D 


STA 

(S6D),Y 

EEC4 

C8 



INY 


EEC5 

C8 



INY 


EECe 

C8 



INY 


ERC? 

A9 

00 


LDA 

IISOO 

EEC9 

85 

6F 


STA 

S6F 

ERCB 

85 

70 


STA 

$70 

EECD 

85 

71 


STA 

$71 

EECF 

98 



TYA 


REDO 

4A 



LSR 

A 

EEDl 

4A 



LSR 

A 

EED2 

20 

4B 

F2 

JSR 

SF24B 

EED5 

91 

6D 


STA 

($6D) ,Y 

EED7 

C8 



INY 


EEDS 

AA 



TAX 


EED9 

38 



SEC 


EEDA 

26 

6F 


ROL 

$6F 

EBDC 

26 

70 


ROL 

$70 

SEDE 

26 

71 


ROL 

$71 

EEBO 

CA 



DEX 


EBEl 

DO 

F6 


BNR 

$EED9 

EBE3 

B5 

6F 


LDA 

S6F,X 

EEE5 

91 

6D 


STA 

($6D),Y 

ERE? 

C8 



INY 


EEE8 

E8 



INX 


EEE9 

EO 

03 


CPX 

#803 

EEEB 

90 

F6 


BCC 

SBBE3 

EEED 

CO 

90 


cpy 

#$90 

EBBE 

90 

D6 


BCC 

$REC7 

BERI 

4C 

75 

DO 

JMP 

$D075 


****************************** 


EEF4 

20 

93 

DF 

JSR 

$DF93 

EEF7 

AA 



TAX 


EEF8 

BD 

5B 

02 

LDA 

$025B,X 

EEFD 

29 

01 


AND 

#$01 

EEFD 

85 

7F 


STA 

$7F 

EEFF 

A4 

7F 


LDY 

$7F 

EFOl 

B9 

51 

02 

LDA 

$0251,Y 

EF04 

DO 

01 


BNE 

$EF07 

EF06 

60 



RTS 


EF07 

A9 

00 


LDA 

#$00 

EF09 

99 

51 

02 

STA 

$0251,Y 

EFOC 

20 

3A 

EF 

JSR 

$EF3A 

EFOF 

A5 

7F 


LDA 

$7F 

EFll 

OA 



ASL 

A 

EF12 

48 



PHA 


EF13 

20 

A5 

FO 

JSR 

SF0A5 

EF16 

68 



PLA 


EF17 

18 



CLC 


EF18 

69 

01 


ADC 

#$01 

E FI A 

20 

A5 

PO 

JSR 

$F0A5 


1 

pointer to directory sector 


3 bytes = 24 blts for sectors 
byte position 

divldcd by 4 = track number 
got numbcr of sectors 
and In BAH 


create bit model 


3 bytes 

thè BAM in buffer 


position 144? 
no, next track 

calculatc number of frce blocks 

write BAM if neodod 
got buffer numbcr 

command for disk controller 

isolate drive number 

DAM-changed flag set? 
yes 


reset BAM-changed flag 
set buffer pointer Cor BAH 
drive numbcr 
times 2 

verify BAM entry 


increment track number 
verify BAM entry 
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EBlD 

A5 

80 

LDA 

$80 

EFIF 

48 


PHA 


EK20 

A9 

01 

LDA 

#S01 

KF22 

85 

80 

STA 

$80 

EF24 

OA 


ASL 

A 

EK25 

OA 


ASl. 

A 

EE26 

85 

6D 

STA 

S6D 

Et'28 

20 

20 F2 

JSR 

$F220 

EE2n 

R6 

80 

INC 

$80 

EF2D 

A5 

80 

LDA 

$80 

EF2E 

CD 

D7 FR 

CMP 

$FED7 

EE32 

90 

FO 

BCC 

$EF24 

EF34 

68 


PLA 


EF35 

85 

80 

STA 

$80 

EF37 

4C 

8A D5 

JHP 

$D58A 


EF3A 

20 

OF FI 

JSR 

$F10F 

RF3D 

AA 


TAX 


EF3E 

20 

DF FO 

JSR 

SFODF 

EF41 

A6 

F9 

I.DX 

$F9 

EF4 3 

BD 

RO FE 

LDA 

$FEE0,X 

EF46 

85 

6 E 

STA 

S6E 

EF4n 

A9 

00 

LDA 

«$00 

EF4A 

85 

6D 

STA 

$6D 

EF4C 

60 


RTS 





EF4D 

A6 

7F 


LDX 

$7F 

RF4F 

BD 

FA 

02 

LDA 

$02FA,X 

RF52 

8D 

72 

02 

STA 

$0272 

RF55 

BD 

FC 

02 

LDA 

$02FC,X 

RFSB 

8D 

73 

02 

STA 

$0273 

RF5B 

60 



RTS 





EF5C 

20 

FI 

EF 

JSR 

SEFFl 

EF5F 

20 

CF 

RF 

JSR 

$RFCF 

EF62 

38 



SEC 


RF6 3 

no 

22 


BNF 

SEF87 

EF65 

B1 

6D 


LDA 

($6D),Y 

RF67 

ID 

R9 

EF 

ORA 

$EFE9 

KF6A 

91 

61) 


STA 

($60),Y 

RF6C 

20 

88 

EF 

JSR 

SRF08 

RF6F 

A4 

6F 


LDY 

$ 6 F 

RF7 l 

18 



CI.C 


RF72 

ni 

6D 


I.DY 

($6D),Y 

EF74 

69 

01 


ADC 

«$01 

EF76 

91 

6D 


STA 

(S6D) ,Y 

RF78 

A5 

80 


1,DA 

$80 

EF7A 

CD 

85 

FE 

CHP 

$FE85 

EF7D 

FO 

3B 


BEO 

$EFBA 

EF7F 

FE 

FA 

02 

INC 

$02FA,X 

RF82 

DO 

03 


BNE 

SF.F87 

RF84 

FR 

FC 

02 

INC 

$02FC,X 


track 


track 1 
timos 4 


and compare with max vai + 1 = 3fi 
ok, next track 


set buffer pointer for BAH 
get 6 for drive 0 

allocate buffer 

buffer number 

buffer addrcss, hi byte 

lo byte 

pointer to S6D/$6E 

get # of free blocks for dir 

drive number 

number of blocks, lo 

number of blocks, hi 
in buffer for directory 


mark block as free 
set buffer pointer 
orase bit for sector in BAH 

block al ready free, then done 

bit model of BAH 

set bit X, marker for free 

set flag for BAH changed 


increment # of free blocks/track 
track 

egual to 18? 
then skip 

ine # of free blocks in disk 
increment number of blocks hi 


verify BAH 

increment track number 


get track number back 
writc BAH to disk 
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set flag for 'BAH changed' 
drive nunber 


EF87 60 I»TS 


****************************** 


EF88 

A6 

7F 

LDX 

$7F 

EF8A 

A9 

01 

LDA 

#S01 

EF8C 

9D 

51 02 

STA 

S0251 ,X 

EF8F 

60 


BTS 


****************************** 

EF90 

20 

FI EF 

JSK 

SEFFl 

EF93 

20 

CF EF 

JSK 

$EFCF 

EF96 

FO 

36 

BEO 

SEFCE 

EF98 

B1 

6D 

LDA 

(S6D) ,Y 

EF9A 

50 

E9 EF 

EOR 

$EFE9,X 

EF9D 

91 

60 

STA 

{S6D),Y 

EF9F 

20 

88 EF 

JSR 

SEFB8 

EFA2 

A4 

6F 

l.DA 

$6F 

EFA4 

B1 

60 

LDA 

(S6D),Y 

EFA6 

38 


SEC 


EFA7 

E9 

01 

SBC 

#$01 

EFA9 

91 

60 

STA 

(S6D),Y 

EFAB 

A5 

80 

LDA 

$80 

EFAD 

CD 

85 FE 

CMP 

$FE85 

EFBO 

FO 

OB 

BEO 

$EFBD 

EFB2 

HD 

FA 02 

LDA 

$02FA,X 

EFB5 

DO 

03 

BNE 

$EFBA 

BFB7 

DE 

FC 02 

DEC 

$02FC,X 

EFBA 

DE 

FA 02 

DEC 

$02FA,X 

EFBD 

BD 

FC 02 

LDA 

$02FC,X 

EFCO 

DO 

OC 

BNE 

$EKCE 

EFC2 

BD 

FA 02 

LDA 

$02FA,X 

EFC5 

C9 

03 

CMP 

#$03 

EFC7 

BO 

05 

BCS 

$EFCE 

EFC9 

A9 

72 

LDA 

#$72 

EFCB 

20 

C7 E6 

JSR 

$E6C7 

EFCE 

60 


RTK 


****************************** 

EFCF 

20 

11 FO 

JSR 

$ FO 11 

EFD2 

98 


TVA 


EFD3 

85 

6F 

STA 

$6F 

EFf)5 

A5 

81 

[.DA 

$81 

F.FD7 

4A 


LSR 

A 

EFD8 

4A 


LSR 

A 

EFD9 

4A 


LSR 

A 

EFDA 

38 


SEC 


EFDB 

65 

6F 

ADC 

S6F 

EFDO 

AB 


TAY 


EFDE 

A5 

81 

LDA 

$81 

EFEO 

29 

07 

AND 

#S07 

EFi;2 

AA 


TAX 


EFE3 

B1 

6D 

LDA 

($6D),Y 

E Fi; 5 

3D 

E9 EF 

AND 

$EFE9,X 

EFE8 

60 


RTS 



flag = 1 


nark block as allocatcd 
set buffer pointer 
erase bit for sector in BAH 
alrcady allocatcd, thcn done 


set flag for BAM changed 


decreraent # of blocks per track 

track 

18? 

numbcr of free blocks lo 

decrement number of free blocks 

nuinber of free blocks hi 
more than 255 blocks free? 
free blocks lo 

smaller than 3? 

72, 'disk full* 


erase bit for sector in BAM entry 
tind BAM field for this track 


sector 
divide by fi 


byte number in BAM entry 
sector number 

bit number in BAM entry 
byte in BAM 

erase bit for corrosponding 
sector 


erase bit for block 
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« « * « 

* * * 

*** 

************** 

EFK9 

01 

02 

04 

08 10 

20 40 80 

*«*««**•*••** 


EKEl 

A9 

FF 


I.DA 

» S FF 

EEI'3 

2C 

F9 

02 

BIT 

S02F9 

EFl-6 

FO 

OC 


BEO 

$F004 

EFl’8 

10 

OA 


BPL 

SP004 

i:ri'*A 

70 

08 


HVS 

SF004 

EFFC 

A9 

00 


EDA 

KSOO 

EFFE 

8D 

F9 

02 

STA 

$02F9 

FOOl 

4C 

8A 

D5 

JMP 

SD58A 

F004 

fio 



RTS 



F005 

20 

3A 

EF 

JSR 

SEF3A 

F008 

AO 

00 


LDY 

ItSOO 

FOOA 

98 



TYA 


FOOB 

91 

fin 


STA 

(860),Y 

FOOD 

C8 



INY 


FOOF 

DO 

FB 


BNE 

SFOOB 

FOIO 

60 



RTS 



FOl) 

A5 

fiF 


EDA 

$6F 

F013 

48 



PIIA 


FOl 4 

A5 

70 


EDA 

870 

F016 

48 



PHA 


FOl 7 

Afi 

7F 


i.nx 

87F 

FOl 9 

B5 

FF 


EDA 

SFF,X 

FOIB 

FO 

05 


BEO 

8F022 

FOID 

A9 

74 


I.DA 

#874 

FO1 F 

20 

48 

Efi 

JSR 

SE648 

F022 

20 

OF 

FI 

JSH 

8F10F 

F025 

85 

6F 


STA 

S fi F 

F0 27 

8A 



TXA 


F02H 

OA 



ASE 

A 

FO 2<J 

85 

70 


S7-A 

870 

F02B 

AA 



TAX 


F0 2C 

A5 

80 


EDA 

880 

F02F 

DD 

9D 

02 

CMP 

Sn29D,X 

F031 

FO 

Oh 


BEO 

SF03K 

F033 

E8 



INX 


F034 

8fi 

70 


STX 

870 

F036 

DD 

9D 

02 

CMP 

80290,X 

F0 39 

FO 

03 


BEO 

8 FOl E 

FOJB 

20 

5B 

FO 

JMP 

SF05B 

F0 3E 

A5 

70 


EDA 

870 

F040 

Afi 

7F 


EDX 

87 F 

F042 

9D 

9n 

02 

STA 

S029B,X 

F045 

OA 



ASL 

A 

F046 

OA 



AMI, 

A 

F047 

18 



CEC 


F048 

fi9 

Al 


ADC 

#8A1 

F04A 

85 



STA 

86D 


powers of 2 

writo BAM after change 

reset flag 
write block 

erase BAH buffer 

pointer S6n/S6E to BAM buffer 

erase BAH buffer 

drive nuinber 

drive zero? 

'drive not ready' 

(jet buffer number for BAM 

track 

drive number 

times 4 
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F04C 

A9 

02 


LDA 

«$02 



F04E 

69 

00 


ADC 

#$00 



POSO 

85 

6E 


STA 

$6E 



F052 

AO 

00 


LDY 

«$00 



F054 

58 



PDA 




F055 

85 

70 


STA 

$70 



F057 

68 



PLA 




PO 5 8 

85 

6F 


STA 

S6P 



F05A 

60 



rns 







F05D 

A6 

6F 


LDX 

$6F 



F05D 

20 

DF 

FO 

JSK 

$PODF 



F060 

A5 

7F 


LDA 

S7P 

drive nunber 


F062 

AA 



TAX 




F063 

OA 



ASL 

A 



F064 

ID 

90 

02 

ORA 

$0290,X 



F067 

49 

01 


EOR 

#$01 



F069 

29 

03 


AND 

#$03 



F06B 

85 

70 


STA 

$70 



F06D 

20 

A5 

FO 

JSR 

SP0A5 



F070 

A5 

F9 


LDA 

$P9 

buffer number 


F072 

OA 



ASL 

A 



F073 

AA 



TAX 




F074 

A5 

80 


t.DA 

$80 

track 


F076 

OA 



ASL 

A 



PO 7 7 

OA 



ASL 

A 

times 4 


PO 7 8 

95 

99 


STA 

$99,X 

cqual pointer in 

RAM fie! 

F07A 

A5 

70 


LDA 

$70 



P07C 

OA 



ASL 

A 



l'07D 

OA 



ASL 

A 



PO 7 E 

AO 



■lAY 




F07P 

Al 

99 


I,DA 

($99,X) 



POSI 

99 

Al 

02 

STA 

$02A1,X 



PO 8 4 

A9 

00 


LDA 

#$00 



PO 8 6 

81 

99 


STA 

($99,X) 

zero in buffer 


PO 8 8 

P6 

99 


INC 

$99,X 

incromont buffer 

pointer 

POSA 

C8 



INY 



POSO 

98 



TYA 




P08C 

29 

03 


AND 

#S03 



POSE 

DO 

EP 


ONE 

$P07P 



P090 

A6 

70 


LDX 

$70 



PO 9 2 

A5 

80 


LDA 

$80 

track 


PO 9 4 

9D 

9D 

02 

STA 

$029D,X 



P097 

AD 

P9 

02 

LDA 

$02P9 



F09A 

DO 

03 


ONE 

$F09P 



F09C 

4C 

8A 

D5 

JMP 

SD50A 

write block 


P09P 

09 

80 


ORA 

«$80 



POAl 

8D 

P9 

02 

STA 

S02P9 



FOA4 

60 



RTS 




F0A5 

A8 



TAY 




FOA6 

119 

9D 

02 

LDA 

$029D,Y 



P0A9 

FO 

25 


REO 

$FODO 
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FOAB 

48 



PHA 


FOAC 

A9 

00 


LDA 

#$00 

FOAE 

99 

9D 

02 

STA 

$029D,Y 

FOBl 

A5 

F9 


LDA 

SF9 

F0B3 

OA 



ASL 

A 

P0B4 

AA 



TAX 


F0B5 

68 



PLA 


FOBfi 

OA 



ASL 

A 

F0B7 

OA 



ASL 

A 

FOBD 

95 

99 


STA 

$99,X 

FOBA 

98 



TYA 


FOBB 

OA 



ASL 

A 

FOBC 

OA 



ASL 

A 

FOBD 

AD 



TAY 


FOBE 

n9 

Al 

02 

LDA 

$02A1,Y 

FOCI 

81 

99 


STA 

($99,X) 

F0C3 

A9 

00 


LDA 

«$00 

F0C5 

99 

Al 

02 

STA 

$02A1,Y 

FOCO 

F6 

99 


INC 

$99,X 

FOCA 

C8 



INY 


FOCE 

9B 



TYA 


FOCC 

29 

03 


AND 

#$03 

FOCE 

DO 

EE 


BNE 

$FOBE 

FODO 

60 



PTS 


PODI 

A5 

7F 


LDA 

$7F 

F0D3 

OA 



ASL 

A 

F0D4 

AA 



TAX 


F0D5 

A9 

00 


LDA 

#$00 

F0D7 

9D 

9D 

02 

STA 

$029D,X 

FODA 

E8 



INX 


FODB 

9D 

9D 

02 

STA 

$029D,X 

FODE 

60 



RTS 


FODF 

B5 

A7 


LDA 

$A7,X 

FOEl 

C9 

FF 


CMP 

#$FF 

F0E3 

DO 

.25 


BNE 

$F10A 

F0E5 

OA 



TXA 


F0F6 

48 



PHA 


F0E7 

20 

8 E 

D2 

JSR 

$D28E 

FOEA 

AA 



TAX 


FOEB 

10 

05 


BPL 

$F0F2 

FOIOD 

A9 

70 


LDA 

#$70 

FOEP 

20 

C8 

CI 

JSR 

$C1C8 

F0F2 

86 

F9 


STX 

SF9 

F0F4 

68 



PLA 


F0F5 

A8 



TAY 


F0F6 

BA 



TXA 


F0F7 

09 

80 


ORA 

#S80 

F0F9 

99 

A7 

00 

STA 

$00A7,Y 

FOFC 

OA 



ASL 

A 

FOFD 

AA 



TAX 


FOFE 

AD 

85 

FE 

LDA 

SFE85 

FlOl 

95 

06 


STA 

$06,X 

F103 

A9 

00 


LDA 

#$00 


buffer number 
timos 2 


writo in buffer 
increment buffer pointer 

drive number 


70, 'no channel' 


18, directory track 

save 

0 
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as sector 
writo block 

buffer number 

* gct buffer number for IlAH 
drive number 

gives 13 for drive 0 

* buffer number for BAH 
get buffer number 


F105 

95 

07 


STA 

$07,X 

F107 

4C 

86 

D5 

JMP 

$11586 

FIOA 

29 

OF 


AND 

#$0F 

FI OC 

85 

F9 


STA 

$F9 

FlOE 

60 



FTS 


*<.**« ************************ 

FIOF 

A9 

06 


DOA 

#$06 

Fili 

A6 

7F 


LDX 

$7F 

FI 13 

DO 

03 


BNF 

$F118 

FI 18 

18 



CLC 


F116 

69 

07 


ADC 

#$07 

Fila 

60 



PTS 



FI 19 

20 

OF 

FI 

JSK 

$FinF 

File 

AA 



TAX 


FllD 

60 



RTS 



FllK 

20 

3 E 

DE 

JSR 

SOE3E 

F121 

A9 

03 


EDA 

#S03 

F123 

85 

6F 


STA 

S6F 

FI 28 

A9 

01 


EDA 

»$0l 

FI 27 

OD 

F9 

02 

ORA 

S02F9 

F12A 

8D 

F9 

02 

STA 

S02F9 

F12D 

A5 

6F 


EDA 

$6F 

F12F 

48 



PHA 


FI 30 

20 

11 

FO 

JSR 

$ FO 11 

FI 3 3 

68 



PEA 


FI 3 4 

85 

6F 


STA 

$6F 

FI 36 

ni 

6n 


EDA 

($6D),y 

F13B 

DO 

39 


ONE 

$F173 

F13A 

A5 

80 


EDA 

$80 

F13C 

CD 

85 

FE 

CMP 

$FE85 

F13F 

FO 

19 


BEO 

$P15A 

F141 

90 

IC 


lice 

$F15F 

FI 4 3 

R6 

80 


INC 

$80 

F14S 

A5 

80 


I.DA 

$80 

F147 

CD 

D7 

FE 

CMP 

$FED7 

FI 4 A 

DO 

K1 


BNE 

SF12D 

F14C 

Af 

85 

FE 

EDX 

SFE85 

F14F 

CA 



DEX 


FI 80 

86 

80 


STX 

$80 . 

FI 82 

A9 

00 


EDA 

#$00 

F184 

85 

81 


STA 

$81 

Fise 

C6 

6F 


DEC 

$6F 

Fise 

DO 

D3 


BNE 

$F12D 

FISA 

A9 

72 


EDA 

#$72 

Fise 

20 

C8 

Cl 

JSR 

SC1C8 

FISF 

C6 

80 


DEC 

$80 

F161 

DO 

CA 


BNE 

SF12D 

F163 

AE 

85 

FE 

EDX 

$FEB5 

F166 

f:8 



INX 



find and allocate frec block 
get track and sector number 


save counter 

find BAM field for tbis track 

get counter back 

number of free blocks in track 

blocks stili free? 

track 

18, directory track? 
yes, 'disk full' 
smaller, then next lower track 
increment track number 

36, highest track number plus one 
no, continuo searching this track 
18, directory track 
decrement 

save as track number 

begin with sector number zero 

decrement counter 

not yet zero, then continuo 

72, 'disk full' 

decrement track number 

not yet n, continuo in this track 

18, directory track 

increment 


counter 
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F167 

86 

80 


STX 

$80 

F169 

A9 

00 


LDA 

«$00 

F16B 

85 

81 


STA 

$81 

F16D 

C6 

6F 


DEC 

$6F 

F16F 

DO 

BC 


BNE 

SF12D 

F171 

FO 

E7 


BEO 

SF15A 

F173 

A5 

81 


LDA 

$81 

F175 

18 



CLC 


F176 

65 

69 


ADC 

$69 

FI 78 

85 

81 


.STA 

$81 

F17A 

A5 

80 


LDA 

$80 

F17C 

20 

4B 

F2 

JSR 

SF24B 

F17F 

8D 

4 E 

02 

STA 

$024E 

FI 8 2 

BD 

4D 

02 

STA 

$024D 

FI a 5 

C5 

81 


CHP 

$81 

F187 

BO 

OC 


BCS 

$F195 

Flft9 

38 



SEC 


FIBA 

A5 

81 


LDA 

$81 

FIBC 

ED 

4K 

02 

SBC 

$024E 

F18F 

85 

81 


STA 

$81 

FI 91 

FO 

02 


BEO 

SF195 

FI 9 3 

C6 

81 


DEC 

$81 

FI 9 5 

20 

FA 

FI 

JSR 

SFIFA 

F198 

FO 

03 


BEO 

SFIOD 

F19A 

4C 

90 

i:f 

JMP 

$EF90 

F19D 

A9 

00 


LDA 

»$00 

F19F 

85 

81 


STA 

$81 

FlAl 

20 

FA 

FI 

JSR 

SFIFA 

FI A4 

no 

P4 


BNE 

$F19A 

F1A6 

4C 

F5 

FI 

JMP 

SFlFb 




F1A9 

A9 

01 


LDA 

#$01 

FlAB 

OD 

F9 

02 

ORA 

S02F9 

FlBl 

A5 

86 


LDA 

$86 

F1B3 

40 



PHA 


F1B4 

49 

01 


LDA 

«$01 

F1B6 

85 

86 


STA 

$86 

FIBB 

AD 

85 

FE 

LDA 

$FE85 

FIBB 

38 



SEC 


FIBC 

E5 

86 


SBC 

$86 

FIBE 

85 

80 


STA 

$80 

FICO 

90 

09 


BCC 

SFICB 

F1C2 

FO 

07 


BEO 

SFICB 

F1C4 

20 

11 

FO 

JSR 

sroii 

F1C7 

B1 

6D 


LDA 

(S6D) 

F1C9 

DO 

IB 


BNE 

$F1E6 

FICB 

AD 

85 

FE 

LDA 

$FE85 

FICE 

18 



CLC 


FICF 

65 

86 


ADC 

$86 

Fini 

85 

80 


STA 

$80 

F1D3 

116 

86 


INC 

$86 

F1D5 

CD 

D7 

FE 

CMP 

SFED7 

F1D8 

90 

05 


BCC 

SFIDE 


savo as track numbcr 

bocjin with sector zero 
decreitiont counter 
not yot zero, then continue 
else 'disk full' 

sector number 

plus step wldth (10) 
as new nutnber 
track number 

gct maximun) sector number 
and save 

greater than solected sector #? 

yes 

else 

sector number 

minus maximum sector number 
save as new sector number 
zero? 

else decreroent sector no. by one 
check r<AM, find freo sector 
not found? 

allocato block in RAM 

sector zero 
find freo sector 
found? 

no, 'dir sector' 

find freo sector and allocate 


track counter 

18, directory track 

minus counter 

save as track number 

rcsult <= zero? 

then try top half of dir 

find RAM field for this track 

no, of free blocks in this track 

froc blocks exist 

18, directory track 

plus counter 

savo as track number 

incromont counter 

36, max track number plus one 

smaller, then ok 
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FIDA 

A9 

67 


LDA #$67 

FIDC 

20 

45 

C6 

JSR $E64S 

FIDF 

20 

11 

FO 

JSR SFOll 

F1E2 

B1 

6D 


LDA ($6D),Y 

F1E4 

FO 

D2 


BEO $F1BB 

F1E6 

68 



PLA 

F1E7 

85 

86 


STA $86 

F1E9 

A9 

00 


LDA #S00 

FIEB 

85 

81 


STA $81 

FIED 

20 

FA 

Fi 

JSR $F1FA 

FIFO 

FO 

03 


BEO $F1F5 

F1F2 

4C 

90 

EF 

JMP $EF90 

F1F5 

A9 

71 


LDA #$71 

F1F7 

20 

45 

E6 

JSR SE645 

«A**************************** 

FIFA 

20 

11 

FO 

JSR $F011 

FIFD 

98 



TYA 

FIFE 

48 



PHA 

FIFF 

20 

20 

F2 

JSR SF220 

F202 

A5 

80 


LDA $80 

F204 

20 

4B 

F2 

JSR $F24B 

F207 

SD 

4C 

02 

STA $n24E 

F20A 

68 



PLA 

F20B 

85 

6F 


STA $6F 

F20D 

A5 

81 


LDA $81 

F20F 

CD 

4E 

02 

CHP S024E 

F212 

DO 

09 


nCS $F21D 

F214 

20 

D5 

EF 

JSR SEFD5 

F217 

DO 

06 


BNE $F21F 

F219 

E6 

81 


INC $81 

F21B 

DO 

FO 


BNE $F20D 

P21D 

A9 

00 


LDA #$00 

F21F 

60 



RTS 


F220 

A5 

6F 


LDA S6F 

F222 

48 



PDA 

F223 

A9 

00 


LDA #$00 

F225 

85 

6F 


STA $6F 

F227 

AC 

86 

FI. 

.LDY SFER6 

F22A 

88 



DEY 

F22B 

A2 

07 


LDX #$07 

F22D 

B1 

6D 


LDA ($6D),Y 

F22F 

3D 

E9 

EF 

AND SEFE9,X 

F232 

FO 

02 


BEO SF236 

F234 

E6 

6F 


INC $6F 

F236 

CA 



DEX 

F237 

10 

F4 


BPL $F22D 

F239 

88 



DEY 

F23A 

DO 

EF 


BNE $F22B 

F23C 

DI 

6D 


LDA ($6n),Y 

F23E 

C5 

6F 


CMP $6F 

F240 

DO 

04 


BNE $F246 


67, 'illegal track or soctor' 
flnd BAM field for this track 
no. of free blocks In this track 
no more froe blocks? 


flnd free sectors in actual track 
find BAM field for this track 
points to * of free blocks 

verify BAM 
track 

get max # of sectors of thè track 
save 


verify no, of free blocks in BAM 


counter to zero 

4, no. of bytos per track in BAM 


Isolate bit 

increment counter of free sectors 


comparo with number on diskette 
not cqual, tbon orror 


sector 0 

find free sector 
not found? 

allocate block in BAM 


71, 'dir error' 


save pointer 
compare sector 
with maximum number 
greater than or equal to? 
get bit number of sector 
soctor free? 
increment soctor number 
and check if free 
no sectors free 
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F242 

68 



PLA 


F243 

85 

6F 


STA 

S6F 

F245 

60 



RTS 


F246 

A9 

71 


LDA 

#S71 

F248 

20 

45 

E6 

JSR 

SE645 

«***««*********«*.*«*««*«****, 

F24D 

AE 

D6 

FE 

LDX 

$FRD6 

F24E 

DO 

D6 

FE 

CMP 

$FED6,X 

F251 

CA 



DEX 


F252 

BO 

FA 


BCS 

$F24E 

F254 

BD 

DI 

FE 

LDA 

SPEDI,X 

F257 

60 



RTS 


F258 

60 



RTS 



F259 

A9 

6F 


LDA 

*S6F 

F25B 

OD 

02 

IC 

STA 

S1C02 

F25E 

29 

FO 


AND 

«SFO 

i^eo 

OD 

00 

IC 

STA 

SICOO 

F263 

AD 

OC 

IC 

I.DA 

SICOC 

F266 

29 

FÉ 


AND 

»$FE 

F268 

09 

OE 


ORA 

«SOR 

F26A 

09 

EO 


ORA 

#SE0 

F26C 

8D 

OC 

IC 

STA 

SICOC 

F26F 

A9 

41 


r.DA 

#S41 

F271 

OD 

OB 

IC 

STA 

SICOB 

F274 

A9 

00 


LDA 

#S00 

F276 

8D 

06 

IC 

STA 

S1C06 

F279 

A9 

3A 


LDA 

#S3A 

F27B 

8D 

07 

IC 

STA 

sicn7 

l■'27l; 

8D 

05 

IC 

STA 

$1C05 

F281 

A9 

7F 


LDA 

#$7F 

P283 

8D 

OE 

IC 

STA 

SICOE 

F286 

A9 

CO 


LDA 

#SC0 

F288 

8D 

OD 

IC 

STA 

SICOD 

F28B 

8D 

OE 

IC 

STA 

SICOE 

F28F 

A9 

FF 


LDA 

»SFF 

F290 

85 

3F 


STA 

S3E 

F292 

85 

51 


STA 

S51 

F294 

A9 

00 


LDA 

«$08 

F296 

85 

39 


STA 

S39 

F298 

A9 

07 


LDA 

«$07 

F29A 

85 

47 


STA 

$47 

F29C; 

A9 

05 


I.DA 

«$05 

F29F. 

85 

62 


STA 

$62 

F2A0 

A9 

FA 


LDA 

«SFA 

l•’2A2 

85 

63 


STA 

S63 

F2A4 

A9 

C8 


LDA 

«SCO 

F2A6 

8 5 

64 


STA 

S64 

F2A8 

A9 

04 


LDA 

«S04 

F2AA 

85 

5 E 


STA 

S5E 

F2AC 

A9 

04 


LDA 

• S04 

F2AK 

85 

6 E 


STA 

S6F 


71, 'dir crror' 

establish # of sectors per track 
4 difCorent values 
track number 

not greater? 

get number of sectors 


initializc disk controller 
bit 4 (writo prot) & 7 (SYNC) 
data direction registor port B 

port B, control port 
PCR, control register 


timer 1 free running, onable 
port A latch 
timer 1 lo latch 

timer 1 hi latch 
timer 1 hi 

eraso iROs 


IBR, allow intcrrupts 


track counter for formatting 
R 

constants for block heador 
7 

constants for data block 


pointer S62/S63 to Sl’AOS 

20 n 
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F2B0 

BA 



TSX 


F2U1 

86 

49 


STX 

$49 

F2U3 

AD 

04 

IC 

LDA 

$1C04 

F2B6 

AD 

OC 

le 

LDA 

SICOC 

F2B9 

09 

OE 


ORA 

#S0E 

F2B11 

8D 

OC 

IC 

STA 

SICOC 

F2BE 

AO 

05 


LDY 

«$05 

F2C0 

B9 

00 

00 

LDA 

$0000,Y 

F2C3 

10 

2E 


BPL 

$F2F3 

F2C5 

C9 

DO 


CMP 

»$D0 

F2C7 

DO 

04 


BNE 

$F2CD 

F2C9 

98 



TYA 


F2CA 

4C 

70 

F3 

JMP 

$F370 

F2CD 

29 

01 


AND 

«SOI 

F2CF 

FO 

07 


BEO 

SF2D8 

F2D1 

84 

3F 


STY 

$3F 

F2D3 

A9 

OF 


LDA 

#S0F 

F2D5 

4C 

69 

F9 

JMP 

$F969 

F2D8 

AA 



TAX 


F2D9 

85 

3D 


STA 

$3n 

F2Dn 

C5 

3E 


CMP 

$3E 

F2DD 

FO 

OA 


BEO 

$F2E9 

F2DF 

20 

7E 

F9 

JSH 

$F97E 

F2E2 

A5 

3D 


LDA 

$3D 

F2E4 

85 

3E 


STA 

S3E 

F2E6 

4C 

9C 

F9 

JMP 

SF99C 

F2E9 

A5 

20 


LDA 

$20 

F2EB 

30 

03 


BMI 

$F2F0 

F2ED 

OA 



ASL 

A 

F2EE 

in 

09 


BPL 

$F2F9 

F2F0 

4C 

9C 

F9 

JMP 

$F99C 

F2F3 

88 



DEY 


F2F4 

10 

CA 


BPL 

$F2Cn 

F2F6 

4C 

9C 

F9 

JMP 

$F99C 

F2F9 

A9 

20 


LDA 

#S20 

F2FB 

85 

20 


STA 

$20 

F2FD 

AO 

05 


LDY 

#$05 

F2FF 

84 

3F 


STY 

S3F 

F301 

20 

93 

FO 

JSR 

SF393 

F304 

30 

lA 


BMT 

SF32n 

F306 

C6 

3F 


DEC 

S3F 

F308 

10 

F7 


BPL 

$F301 

F30A 

A4 

41 


LDY 

$41 

F30C 

20 

95 

F3 

JSR 

SF395 

F30F 

A5 

42 


LDA 

$42 

F311 

85 

4A 


STA 

$4A 

F313 

06 

4A 


ASL 

$4A 

F31 !i 

A9 

60 


LDA 

#S60 

I•■3l7 

85 

20 


S’IA 

$20 


IRÒ routine for disk controller 

save stack pointer 

erose interrupt flag from timer 


command for buffer Y7 
no 

exec. code for program in buffer 
no 

execute program in buffer 
isolate drive numher 
drive zero? 

else 

74, 'drive not ready' 


rootor ninning? 
yes 

turn drive motor on 

set flag 
to job loop 


head transport programmed? 


to job loop 


check noxt buffer 
to job loop 


program head transport 

initialize buffer countcr 

set pointer in buffer 

command for buffer? 

decrement counter 

check noxt buffer 

buffer number 

set pointer in buffer 

track differonco for last job 

as counter for head transport 

net flag for head transport 
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F319 

B1 

32 


LDA 

($32) ,Y 

F31D 

85 

22 


STA 

$22 

F31D 

4C 

9C 

F9 

JMP 

SF99C 

F320 

29 

01 


AND 

#$01 

F322 

C5 

3D 


CMP 

$3D 

F324 

DO 

EO 


BNE 

$P306 

F326 

A5 

22 


LDA 

$22 

F328 

FO 

12 


BEO 

SF33C 

F32A 

38 



SEC 


P32B 

FI 

32 


SBC 

($32),Y 

F32D 

FO 

OD 


REO 

$F33C 

F32F 

49 

FF 


EOB 

#$FF 

F331 

85 

42 


STA 

$42 

F333 

Fe 

42 


INC 

$42 

F335 

A5 

3F 


LDA 

S3F 

f337 

85 

41 


STA 

$41 

F339 

4C 

06 

F3 

JMP 

$F306 

E33C 

A2 

04 


LDX 

*$04 

F33E 

B1 

32 


LDA 

($32),Y 

F340 

85 

40 


STA 

$40 

F342 

DD 

D6 

FB 

CMP 

$FEP6,X 

F345 

CA 



DEX 


F346 

BO 

FA 


BCS 

$F34 2 

F348 

80 

DI 

FE 

LDA 

$FED1,X 

F34n 

85 

43 


STA 

$43 

F34D 

8A 



TXA 


F34F 

OA 



ASL 

A 

F34F 

OA 



ASL 

A 

F350 

OA 



ASL 

A 

F351 

OA 



ASL 

A 

F352 

OA 



ASL 

A 

F353 

85 

44 


STA 

$44 

F355 

AD 

00 

IC 

LDA 

$1C00 

F358 

29 

9F 


AND 

#S9F 

F35A 

05 

44 


ORA 

$44 

F35C 

8D 

00 

IC 

STA 

$1C00 

F35F 

A6 

3D 


LDX 

$3D 

F361 

A5 

45 


LDA 

$45 

F363 

C9 

40 


CMP 

*$40 

F365 

FO 

15 


BEO 

$F37C 

F367 

C9 

60 


CMP 

*$60 

F369 

FO 

03 


BEO 

$F36E 

F36B 

4C 

HI 

F3 

JMP 

SF3B1 


F36R 

A5 

3F 

LDA 

S3F 

F370 

18 


CLC 


F371 

69 

03 

ADC 

#$03 

F373 

85 

31 

STA 

$31 

F375 

A9 

00 

LDA 

#S00 

F377 

85 

30 

STA 

$30 

F379 

6C 

30 00 

JMP 

($003 


got track numbor from buffer 

to job loop 

isolate drive nuinber 

equal drive numbor of last job? 

no 

last track number 
equal zero? 

equal track number of this job? 
yea 


drive number 


track number bf thè job 
save 

comparo with max track number 
groater? 

get # of sectors per track 
and save 


gives 0, 32, 64, 96 


generate control byte for notor 


command code 
position head? 
yea 

command code for prg execution? 
yes 

read block heador 

oxecute program in buffer 
buffer number 

plus 3 

equals addrcss of buffer 
exccute program in buffer 


position head 
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F37C 

A9 

60 


LDA 

*$60 

F37E 

85 

20 


STA 

$20 

P380 

AD 

00 

IC 

LDA 

$1C00 

F38 3 

29 

FC 


AND 

«$FC 

F385 

8D 

00 

le 

STA 

SICOO 

F388 

A9 

A4 


LDA 

*$A4 

F38A 

85 

4A 


STA 

$4A 

F38C 

A9 

01 


LDA 

*$01 

F381' 

85 

22 


STA 

S22 

F390 

4C 

69 

F9 

JMP 

$F969 

******************«.*(,**«**(.* 

F39 3 

A4 

3F 


LDV 

$3F 

F395 

09 

00 

00 

LDA 

$0000,Y 

F398 

48 



PlIA 


F399 

10 

10 


• OPL 

$F3An 

F39H 

29 

78 


AND 

#S78 

F39D 

85 

45 


STA 

$45 

F39F 

98 



TYA 


F3A0 

OA 



ASL 

A 

F3A1 

69 

06 


ADC 

#806 

F3A3 

85 

32 


STA 

$32' 

F3A5 

98 



TYA 


F3A6 

18 



CLC 


F3A7 

69 

03 


ADC 

*S03 

F3A9 

85 

31 


STA 

$31 

F3A1) 

AO 

00 


I.DY 

*$00 

F3AD 

84 

30 


STY 

$30 

F3AF 

68 



PI.A 


F3B0 

60 



PTS 


• ****it*****************K«**** 

F3ni 

A2 

5A 


LDX 

#$5A 

F3U3 

86 

40 


STX 

$411 

F3I)5 

A2 

00 


LDX 

#S00 

l•'3H7 

A9 

52 


r.DA 

#$52 

F3H9 

85 

24 


STA 

$24s 

F3UU 

20 

56 

F5 

JSH 

SF556 

F3mi 

50 

FK 


ove 

SF3III'; 

F3C0 

08 



CLV 


F3C1 

AD 

01 

IC 

I.DA 

$1C01 

F3C4 

C5 

24 


CMP 

$24 

F3C6 

DO 

3F 


ONE 

SF4 07 

F3C8 

50 

Ff 


uve 

SF3C0 

F3CA 

08 



ei.v 


F3CB 

AD 

01 

IC 

LDA 

SlCOl 

F3CE 

95 

25 


STA 

$25,X 

F3D0 

E8 



INX 


F3D1 

i:o 

07 


CPX 

*S07 

F3D3 

DO 

F3 


UNK 

SF3C8 

F3D5 

20 

97 

F4 

JSK 

SF497 

F3U8 

AO 

04 


LDY 

*$04 

F3DA 

A9 

00 


LDA 

#$00 

F3DC 

59 

16 

00 

l'Olì 

S0016,Y 

F3DF 

88 



DEY 



set flag fot head transport 
turn stcpper raotors on 
164 

stop countor fot head transport 

track number 
ok 

initialize pointer in buffer 
buffer number 
command code 
save 

oraso bits 0,1,2, and 7 

buffer number 
times two 
plus 6 

cijuals pointer to actual buffer 
buffer number 

plus 3 

otjuals buffer address hi 


read block header, verify ID 
<J0 

countcr 
0 2 

wait for SYNC 
byte ready? 

data from read head 

20, 'read error' 
byte ready? 

data byte from disk(block header) 
save 7 bytes 


continue roading 
4 bytes plus parity 
fonti chccksum for header 


buffer address lo 
(jet command code back 
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F3E0 

10 

FA 


0PL 

$F3DC 

r'3B2 

C9 

00 


CMP 

#S00 

F3R4 

DO 

38 


0NE 

SF41E 

F3E6 

A6 

3E 


LDX 

S3E 

F3E8 

A4 

18 


LDA 

$18 

F3EA 

95 

22 


STA 

$22,X 

F3EC 

A5 

45 


LDA 

$45 

F3EE 

C9 

30 


CMP 

#$30 

F3F0 

FO 

lE 


BEO 

$F410 

F3F2 

A5 /3i$ 


LDA 

$3E 

F3F4 

OA 



ASL 

A 

F3F5 

A8 



TAY 


F3F6 

U9 

12 

00 

LDA 

$0012,Y 

F3F9 

C5 

1« 


CMP 

$16 

F3FU 

DO 

lE 


0NE 

$F41B 

F3FD 

09 

13 

00 

LDA 

$0013,Y 

F400 

C5 

17 


CMP 

$17 

F402 

DO 

17 


BNE 

$F41B 

F404 

4C 

23 

F4 

JMP 

$P423 

F407 

C6 

40 


DEC 

$40 

F409 

DO 

BO 


BNE 

$F3BB 

F40n 

A9 

02 


LDA 

#$02 

F40n 

20 

69 

F9 

JSR 

SF969 

*****************************1 

F410 

A5 

16 


LDA 

$16 

F412 

85 

12 


STA 

$12 

F414 

A5 

17 


LDA 

$17 

F416 

85 

13 


STA 

$13 

F4ia 

A9 

01 


LDA 

#$01 

F41A 

2C 



•BYTE $2C 

F41P 

A9 

00 


LDA 

#SO0 

F41D 

2C 



.BYTE S2C 

IM1E 

A9 

09 


LDA 

#$U9 

F420 

4C 

69 

F9 

JMP 

$F969 


F4 23 

A9 

7F 


LDA 

#S7F 

F4 25 

85 

4C 


STA 

S4C 

F4 27 

A5 

19 


LDA 

$19 

F4 29 

18 



CLC 


l'^l 2A 

69 

02 


ADC 

«$02 

F4 2C 

C5 

43 


CMP 

$43 

F4 2F. 

90 

02 


hCC 

$F432 

F4 30 

R5 

43 


SBC 

$43 

F4 3 2 

«5 

4D 


STA 

S4D 

F4 34 

A2 

05 


LDX 

#S05 

l■•4 36 

86 

3F 


STX 

$3F 

F4 38 

A2 

FF 


LDX 

#$FF 

F4 3A 

20 

93 

F3 

JSH 

SF39 3 

F4 3n 

10 

44 


IIPL 

$F483 

IM 3 F 

85 

44 


SIA 

$44 

F441 

29 

01 


AND 

#$01 

l•■44 3 

C5 

3K 


CMP 

S3I-: 


parity ok? 

27, ' read error' 
drive number 
track nunber of hoader 
uso as actual track number 

code £or 'preservo header' 
preserve header 


compare with IDI 


compare with ID2 

<>, thon 29, 'disk id mismatch' 


decrement counter £or attempts 

and try again 

else 

20, 'read error' 

preservo block header 
IDI 

and 102 

preservo 

ok 

29, 'disk id mismatch' 

27, 'writo error' 
done 


set buffer ptr for disk control 
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F445 

DO 

3C 


HNE 

$F483 

F447 

AO 

00 


LDY 

#S00 

F449 

ni 

32 


LDA 

($32) 

F44D 

C5 

40 


CHI' 

$40 

F44n 

DO 

34 


HNE 

$F483 

F44F 

A5 

45 


LDA 

$45 

F451 

C9 

60 


CHP 

#$60 

F4 53 

FO 

OC 


BEO 

$F461 

F455 

AO 

01 


LDY 

»$01 

F457 

38 



SEC 


F4 58 

ni 

32 


LDA 

($32) 

F4 5A 

155 

4D 


sue 

$4D 

F4 6C 

10 

03 


Ul'L 

$F461 

F45K 

18 



CLC 


F4 5F 

65 

43 


ADC 

$43 

F461 

C4 

4C 


CHI' 

S4C 

F463 

no 

lE 


ncs 

SF4R3 

F465 

48 



l'HA 


F46fi 

A5 

45 


LDA 

$45 

F468 

FO 

14 


BEO 

SF47E 

F4 6A 

68 



l'LA 


F46B 

C9 

09 


CMP 

#$09 

F46D 

90 

14 


HCC 

$F483 

F46F 

C9 

OC 


CMP 

#$0C 

F471 

HO 

10 


HCS 

$F483 

F473 

85 

4C 


STA 

S4C 

F475 

A5 

3F 


LDA 

$3F 

F477 

AA 



TAX 


F478 

69 

03 


ADC 

#$03 

F47A 

85 

31 


STA 

$31 

F47C 

DO 

05 


UNE 

$F483 

F47E 

68 



PLA 


F4 7F 

C9 

06 


CMP 

#$06 

F481 

90 

FO 


HCC 

$F473 

F483 

C6 

3F 


DEC 

$3F 

F485 

10 

B3 


BPL 

SF4 3A 

F487 

8A 



TXA 


F488 

10 

03 


nPL 

$F48D 

F48A 

4C 

9C 

F9 

JMP 

$F99C 

F48D 

86 

3F 


STX 

$3F 

F48F 

20 

93 

F3 

JSP 

SF393 

F492 

A5 

45 


LDA 

$45 

F494 

4C 

CA 

F4 

JMP 

$F4CA 

F497 

A5 

30 


LDA 

$30 

F499 

48 



PLA 


F49A 

A5 

31 


I.DA 

$31 

F49C 

48 



PIIA 


F49D 

A9 

24 


LDA 

#$24 

F49F 

85 

30 


STA 

$30 

F4A1 

A9 

00 


LDA 

#$00 

F4A3 

85 

31 


STA 

$31 

F4A5 

A9 

00 


LDA 

#S00 

F4A7 

85 

34 


STA 

$34 


Y 

command code 

Y 


to job loop 

got buffer number 
command code 
continuo checking 

save pointer S30/S31 

pointer S30/$31 to san 
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get pointer $30/S31 back 


F'IA^ 

20 

E6 

F7 

JSR 

$F7E6 

F4AC 

A5 

55 


LDA 

$55 

F4AE 

85 

18 


STA 

$18 

K4no 

A5 

54 


LDA 

$54 

F4U2 

85 

19 


STA 

$19 

F4B4 

A5 

53 


LDA 

$53 

F4H6 

85 

lA 


STA 

$1A 

F4B8 

20 

E6 

F7 

JSR 

$F7E6 

F4Bn 

A5 

52 


LDA 

$52 

F4BD 

85 

17 


STA 

$17 

F4nF 

A5 

53 


LDA 

$53 

F4C1 

85 

16 


STA 

$16 

F4C3 

68 



PLA 


F4C4 

85 

31 


STA 

$31 

F4C6 

68 



PLA 


F4C7 

85 

30 


STA 

$30 

F4C9 

60 



BTS 


*.******.********************* 

F4CA 

C9 

00 


CMP 

il$00 

F4CC 

FO 

03 


BEO 

$F4D1 

F4CB 

4C 

6 E 

F5 

JMP 

$F56E 

F4D1 

20 

OA 

F6 

JSR 

$F50A 

F4D4 

50 

FE 


BVC 

$F4D4 

F4D6 

B8 



CLV 


F4l)7 

AD 

01 

IC 

[.DA 

$1C01 

F4DA 

91 

30 


STA 

($30),Y 

F4DC 

C8 



INY 


F4l')D 

DO 

F5 


BNE 

$F4D4 

F4nF 

AO 

BA 


LDY 

#$BA 

F4K1 

50 

FE 


BVC 

$F4El 

F4E3 

B8 



CLV 


F4E4 

AD 

01 

IC 

LDA 

$1C01 

F4E7 

99 

00 

01 

STA 

$0100,Y 

F4EA 

C8 



INY 


F4EB 

DO 

F4 


BNE 

$F4F1 

F4ED 

20 

EO 

F8 

JSR 

SFBEO 

F4F0 

A5 

38 


LDA 

$38 

F4F2 

C5 

47 


CMP 

$47 

F4 F4 

FO 

05 


BEO 

SF4FB 

F4 F6 

A9 

04 


LDA 

«$04 

F4 F8 

4C 

69 

F9 

JMP 

$F969 

IM FB 

20 

E9 

F5 

JSR 

$F5E9 

E4EE 

C6 

3A 


CMP 

$3A 

F500 

FO 

03 


BEO 

SF505 

F502 

A9 

05 


LDA 

*$05 

F5n4 

2C 



•BYTE S2C 

F505 

A9 

01 


LDA 

*$01 

F507 

4C 

69 

F9 

JMP 

$F969 

************1 

****************** 

F50A 

20 

10 

K5 

JSR 

$F510 

F50b 

4C 

56 

F5 

JMP 

$F556 


command code for ’read*? 
yes 

continue checking command code 

find beginning o£ data block 
byte ready? 

get data byte 
and writc in buffer 
256 times 


equal 7, beginning o£ data block? 
yes 

22, 'read orror' 
orror termination 

calculatc parity of data block 

agreement? 

yes 

23, 'read orror' 
ok 

preparo orror message 

find start of data block 
read block header 
wait for SYNC 


byte ready? 

read bytes 

from $inA to SIFF 
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F510 

AS 

3D 


LDA 

S3D 

F512 

OA 



ASL 

A 

F513 

AA 



TAX 


F514 

B5 

12 


LDA 

$12,X 

F516 

85 

16 


STA 

$16 

F518 

B5 

13 


LDA 

$13,X 

F51A 

85 

17 


STA 

$17 

F51C 

AO 

00 


LDY 

#S00 

F51E 

B1 

32 


LDA 

($32),Y 

F520 

85 

18 


STA 

$18 

F522 

C8 



INY 


F523 

DI 

32 


LDA 

($32),Y 

F525 

85 

19 


STA 

$19 

F527 

A9 

00 


LDA 

#$00 

F529 

45 

16 


EOR 

$16 

F52B 

45 

17 


EOR 

$17 

F52D 

45 

18 


EOR 

$18 

F52F 

45 

19 


EOR 

$19 

F531 

85 

lA 


STA 

$1A 

F533 

20 

34 

F9 

JSR 

$F934 

F536 

A2 

5A 


LDX 

#$5A 

F538 

20 

56 

F5 

JSR 

$F556 

F53B 

AO 

00 


LDY 

*$00 

F53D 

50 

FE 


BVC 

$F35D 

F53F 

B8 



CLV 


F540 

AD 

01 

IC 

LDA 

$1C01 

F543 

D9 

24 

00 

CMP 

$0024,Y 

F546 

DO 

06 


PNE 

SF54E 

F548 

C8 



INY 


F549 

CO 

08 


CPY 

«$08 

F54B 

DO 

FO 


BNE 

$F53D 

F54D 

60 



RTS 


F54B 

CA 



DEX 


F54F 

DO 

E7 


BNE 

$F538 

F551 

A9 

02 


LDA 

«$02 

F553 

4C 

69 

F9 

JMP 

SF969 




F556 

A9 

DO 


LDA 

*$D0 

F558 

6D 

05 

18 

STA 

$1805 

F55B 

A9 

03 


LDA 

»$03 

F55D 

2C 

05 

18 

BIT 

$1805 

F560 

10 

FI 


BPL 

$F553 

F562 

2C 

00 

IC 

BIT 

$1C00 

F565 

30 

F6 


BMI 

$F55D 

F567 

AD 

10 

IC 

LDA 

$1C01 

F56A 

B8 



CLV 


F56B 

AO 

00 

• 

LDY 

»$00 

F56D 

60 



RTS 


****** 

F56E 

1***1 

C9 

»*«« 

10 

r***i 

k***ftl 

CMP 

#$10 


read block header 
drive number 


mi 

save 

IU2 

save 

get track and 


sector nunber frotn buffer 


calculate parity for block header 


and save 

90 attempts 
wait for SYNC 

byte ready? 

read data from block header 
compare with saved data 
not thè aame, try again 

8 bytes read? 
no 


decremcnt countor 
not yet zero? 

20, 'read error' 

wait fot SYNC 
208 

start timer 
error code 

timer run down, then 'read error' 
SYNC signal 
not yet found? 
read byte 


command code for 'write' 
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F570 

FO 

03 


BEO 

SF575 

F572 

4C 

91 

F6 

JMP 

SF691 


F575 

20 

FO 

F5 

JSR 

SF5F9 

F57B 

85 

3A 


•STA 

$3A 

F57A 

Ab 

00 

IC 

LDA 

SICOO 

F57I) 

29 

10 


AND 

(tSlO 

F57K 

1)0 

05 


BNF 

SF586 

F581 

A9 

08 


EDA 

«SOR 

F583 

4C 

69 

F9 

JHP 

SF969 

F586 

20 

8F 

F7 

JSR 

$F7RF 

F589 

20 

10 

F5 

JSR 

SF510 

F5UC 

A2 

09 


I.DX 

#S09 

F58I-: 

50 

FF 


BVC 

SF5RF 

F590 

Bll 



CFV 


F591 

CA 



DEX 


F592 

DO 

FA 


BNE 

SF58K 

F59/1 

A9 

FF 


I.DA 

tt$FF 

F596 

HD 

03 

IC 

STA 

S1C03 

l•■599 

AD 

OC 

IC 

LDA 

SI eoe 

F59C 

29 

)F 


AND 

ItSlF 

F59l: 

09 

CO 


ORA 

«SCO 

FSA» 

OD 

OC 

IC 

STA 

SI eoe 

Fr.A3 

A9 

FF 


I.DA 

«SFF 

F5A5 

A2 

05 


LDX 

«S05 • 

F5A7 

8n 

01 

IC 

STA 

SlCOl 

F5AA 

B8 



CLV 


F5AU 

50 

FK 


BVC 

SF5AB 

FSAD 

DB 



cr.v 


F5AE 

CA 



DFX 


F5AF 

DO 

FA 


BNF 

SF5AB 

F6B1 

AO 

Bit 


LDY 

«SBB 

F5B3 

B9 

00 

01 

LDA 

soioo,y 

F5B6 

50 

FU 


BVC 

SF5B6 

F5B8 

BR 



CI.V 


F5B9 

8D 

01 

IC 

STA 

SlCOl 

F5BC 

CH 



INV 


F5BD 

DO 

F4 


BNF 

SF5B3 

F5HF 

B1 

30 


LDA 

(SJO),Y 

F5C1 

50 

l■•F 


BVC 

SF5C1 

F5C3 

B8 



CLV 


F5C4 

8D 

01 

IC 

STA 

SlCOl 

F5C7 

ca 



INV 


FStM! 

DO 

F5 


BNF 

SF5BF 

F5CA 

50 

FI-; 


BVC 

SF5CA 

F5CC • 

AD 

OC 

IC 

I.DA 

SICOC 

F5CF 

09 

FO 


ORA 

# s i:o 

F5in 

8D 

OC 

IC 

STA 

SICOC 

F5D4 

A9 

00 


LDA 

«soo 

F5D6 

OD 

03 

IC 

LDA 

SI co 3 

F5n9 

20 

F2 

F5 

JSR 

SF5F2 

l'SDC 

A4 

3F 


LDY 

S3F 

F5DE 

ll9 

00 

00 

LDA 

SOOOO,Y 


yos 

continue check ino cotnmand code 

write data block to disk 
calcolate parity fot buffer 
and save 
read port B 

isolate bit for *v/rite protect' 
not set, ok 


port A (writo/rcad head) to 
to output 

change PCR to output 


bytes Slun to SlFf to disk 


write data buffer (256 bytes) 


byte ready? 

PCR to input again 


port A (read/writo head) to input 


26, 'write protect' 

find block heador 
byte ready? 


write SPF to disk 5 times 
as syNC characters 
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F5E1 

49 

30 


EOB 

#S30 

F5E3 

99 

00 

00 

STA 

$0000,Y 

F5E6 

4C 

B1 

F3 

JMP 

$F3Bl 

*******«*********É************ 

F5E9 

A9 

00 


[.DA 

#$00 

F5EB 

A8 



TAy 


F5EC 

51 

30 


EOB 

($30),Y 

F5EE 

C8 



INy 


F5EP 

DO 

FB 


BNE 

$F5EC 

F5F1 

60 



BTS 


F5F2 

A9 

00 


EDA 

#$00 

F5F4 

85 

2E 


STA 

$2E 

F5F6 

85 

30 


STA 

$30 

F5F8 

85 

4F 


STA 

$4P 

F5FA 

A5 

31 


LDA 

$31 

F5FC 

85 

4B 


STA 

$4E 

F5FE 

A9 

01 


LDA 

#$01 

F600 

85 

31 


STA 

$31 

F602 

85 

2F 


STA 

$2F 

F604 

A9 

BB 


LDA 

#$BB 

F606 

85 

34 


STA 

$34 

F608 

85 

36 


STA 

$36 

F60A 

20 

E6 

F7 

JSP 

$F7E6 

F60D 

A5 

52 


LDA 

$52 

F60F 

85 

38 


STA 

$38 

F611 

A4 

36 


LDY 

$36 

F613 

A5 

53 


LDA 

$53 

F615 

91 

2E 


STA 

(S2E),Y 

F617 

C8 



INY 


F618 

A5 

54 


r.DA 

$54 

F61A 

91 

2 E 


STA 

($2E),Y 

F61C 

C8 



INY 


F61D 

A5 

55 


LDA 

$55 

F61F 

91 

2 E 


STA 

($2E),Y 

F621 

C8 



INY 


F622 

84 

36 


STY 

$36 

F624 

20 

E6 

F7 

JSB 

$F7E6 

F627 

A4 

36 


LDY 

$36 

F629 

A5 

52 


LDA 

$52 

F6 2H 

91 

2E 


STA 

($2E),Y 

F62D 

C8 



INY 


F62E 

A5 

53 


LDA 

$53 

Pf) 30 

91 

2K 


STA 

($^E) ,Y 

F632 

C8 



INY 


F6 33 

PO 

OE 


BEO 

$F64 3 

F635 

A5 

54 


LDA 

$54 

F637 

91 

2E 


STA 

(S2R),Y 

F639 

C8 



INY 


F6 3A 

A5 

55 


LDA 

$55 

F6 3C 

91 

2 E 


STA 

(S2E),Y 

F6 3E 

C8 



INY 


P63P 

84 

36 


STY 

$36 

F641 

no 

E1 


BNE 

$P624 


convert cotnmand code 'write' 
to ’verlfy' 

calculate parity for data l'uffer 
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F643 

A5 

54 


LDA 

$54 

P645 

91 

30 


STA 

($30),Y 

F647 

ca 



INY 


t'648 

A5 

55 


LDA 

$55 

F64A 

91 

30 


STA 

($30),Y 

F64C 

C8 



INY 


F64D 

84 

36 


STY 

$36 

F64F 

20 

E6 

F7 

JSR 

$F7E6 

F652 

A4 

36 


LDY 

$36 

F654 

A5 

52 


LDA 

$52 

F656 

91 

30 


STA 

($30),Y 

F658 

C8 



INY 


F659 

A5 

53 


LDA 

$53 

F65B 

91 

30 


STA 

($30),Y 

F65D 

C8 



INY 


F65E 

A5 

54 


LDA 

$54 

F660 

91 

30 


STA 

($30),Y 

F662 

C8 



INY 


F663 

A5 

55 


LDA 

$55 

F665 

91 

30 


STA 

($30),Y 

F667 

C8 



INY 


F66B 

84 

36 


STY 

$36 

F66A 

CO 

BB 


CPY 

«$BB 

F66C 

90 

E1 


BCC 

SF64F 

F66E 

A9 

45 


LDA 

#$45 

F670 

85 

2E 


STA 

$2E 

F672 

A5 

31 


LDA 

$31 

F674 

85 

2F 


STA 

$2F 

F676 

AO 

BA 


LDY 

«$BA 

F678 

m 

30 


LDA 

($30),Y 

F67A 

91 

2E 


STA 

($2E),Y 

F67C 

88 



DEY 


F67D 

DO 

F9 


BNE 

SF678 

F67F 

B1 

30 


LDA 

($30),Y 

F681 

91 

2E 


STA 

($2B),Y 

P683 

A2 

BD 


LDX 

«$BB 

F685 

BD 

00 

01 

LDA 

$0100,X 

F688 

91 

30 


STA 

($30),Y 

F68A 

C8 



INY 


F6aB 

F.8 



INX 


F68C 

DO 

F7 


BNE 

SF685 

F68E 

86 

50 


STX 

$50 

F690 

60 



RTS 



****************************** 


F691 

C9 

20 


CMP 

#$20 

F693 

FO 

03 


BEO 

SF698 

F695 

4C 

CA 

F6 

JMP 

$F6CA 

F698 

20 

E9 

F5 

JSB 

$F5E9 

F69B 

85 

3A 


STA 

$3A 

F69D 

20 

HF 

F7 

JSR 

$F78F 

F6A0 

20 

OA 

F5 

JSK 

$F50A 

F6A3 

AO 

BR 


LDY 

#$BB 

F6A5 

B9 

00 

01 

LDA 

$0100,Y 


command code for 'vorlfy'? 
yes 

continuo checking command code 

calculate parity for data buffer 
and save 

find start of data block 
data from buffer 


237 



I SEGRETI DEL 1541 


F6A8 

50 

FE 


BVC 

SF6An 

byte ready? 


F6AA 

B8 



CLV 




F6AB 

40 

01 

le 

EOR 

SlCOl 

compare with data from 

disk 

F6AE 

DO 

15 


BNK 

SF6C5 

not cgual, then error 


F6B0 

C8 



INY 




F6B1 

DO 

F2 


BNE 

$F6A5 



F6B3 

ni 

30 


LDA 

(S30),Y 

data from buffer 


F6B5 

50 

FE 


BVC 

$F6D5 



F6B7 

B8 



CLV 




F6B8 

4D 

01 

le 

EOR 

$1C01 

compare with data from 

disk 

F6BB 

DO 

08 


BNE 

$F6C5 

not egual, then error 


F6BD 

C8 



INY 




F6BE; 

CO 

FD 


CPY 

*$FD 



F6C0 

DO 

FI 


BNE 

SF6B3 



F6C2 

4C 

18 

F4 

JMP 

$F418 

error free termination 


F6C5 

A9 

07 


LDA 

#S07 



F6C7 

4C 

69 

F9 

JMP 

$F969 

25, 'write error' 



****************************** 


F6CA 

20 

10 

F5 

JSR 

$F510 

read block header 

F6CD 

4C 

18 

F4 

JMP 

SF418 

dono 

****************************** 


F6D0 

A9 

00 


LDA 

(tSOO 


F6D2 

85 

57 


STA 

$57 


P6D4 

85 

5A 


STA 

S5A 


F6D6 

A4 

34 


LDY 

$34 


F6D8 

A5 

52 


LDA 

$52 


F6DA 

29 

FO 


AND 

#SF0 

isolate hi-nihble 

F6DC 

4A 



LSR 

A 


F6DD 

4A 



LSR 

A 

and rotate to lower nibbio 

F6DE 

4A 



LSR 

A 


F6DF 

4A 



LSR 

A 


F6E0 

AA 



TAX 


as index in tablc 

F6E1 

BD 

7F 

F7 

LDA 

$F77F,X. 


F6E4 

OA 



ASL 

A 


F6E5 

OA 



ASL 

A 

times 8 

F6E6 

OA 



ASL 

A 


F6E7 

85 

56 


STA 

$56 


F6E9 

A5 

52 


LDA 

$52 


F6EB 

29 

OF 


AND 

#$0F 

isolate lower nibbio 

F6ED 

AA 



TAX 


as index in tablc 

F6EE 

BD 

7F 

F7 

LDA 

$F77F,X 


F6F1 

OA 



ROR 

A 


F6F2 

66 

57 


ROR 

$57 


F6F4 

6A 



ROR 

A 


F6F5 

66 

57 


ROR 

$57 


F6F7 

29 

07 


AND 

#$07 


F6F9 

05 

56 


ORA 

$56 


F6FB 

91 

30 


STA 

($30),Y 

in buffer 

F6FD 

C8 



INY 


increment buffer 

F6FE 

A5 

53 


LDA 

$53 


F700 

29 

FO 


AND 

#$F0 

isolate upper nibbio 

F702 

4A 



LSR 

A 
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F703 

4A 



LSR 

A 


F704 

4A 



LSR 

A 

sliift to upper nibble 

F705 

4A 



LSR 

A 

F70f) 

AA 



TAX 


as index in table 

F707 

no 

7F 

F7 

LDA 

SF77F,X 


F70A 

OA 



ASL 

A 


F70n 

05 

57 


ORA 

$57 


F70D 

05 

57 


STA 

$57 


F7<)F 

A5 

53 


LDA 

$53 


F711 

29 

OF 


AND 

#$0F 

lower nibble 

F713 

AA 



TAX 


as index 

F714 

llD 

7F 

F7 

LDA 

SF77F,X 


F717 

2A 



ROL 

A 


F7ia 

2A 



ROL 

A 


F719 

2A 



ROL 

A 


F71A 

2A 



ROL 

A 


F7in 

05 

58 


STA 

$50 


F71D 

2A 



ROL 

A 


F71E 

29 

01 


AND 

#$01 


F7 20 

05 

57 


ORA 

$57 


F7 22 

91 

30 


STA 

($30),Y 

in buffer 

F724 

CO 



INV 


incretnont buffer 

F725 

A5 

54 


LDA 

$54 


F7 27 

29 

FO 


AND 

#$F0 

isolate hi-nibble 

F729 

4A 



LSR 

A 


F72A 

4A 



LSR 

A 


F7 2U 

4A 



LSR 

A 


F72C 

4A 



LSR 

A 


F72D 

AA 



TAX 



F7 2E 

UD 

7F 

F7 

LDA 

$F77F,X 


F7 31 

18 



CLC 



F732 

6A 



ROR 

A 


F7 33 

05 

58 


ORA 

$58 


F7 35 

91 

30 


STA 

($30),Y 

in buffer 

F7 37 

CO 



INY 


increment buffer pointer 

F738 

6A 



POR 

A 


F7 39 

29 

80 


AND 

#$80 


F73U 

85 

59 


STA 

$59 


F731') 

A5 

54 


LDA 

$54 


F73F 

29 

OF 


AND 

#$0F 

lower nibble 

F741 

AA 



TAX 


as index. 

F74 2 

BD 

7F 

F7 

LDA 

SF77F,X 


F745 

OA 



ASL 

A 


F746 

OA 



ASL 

A 


F747 

29 

7C 


AND 

#$7C 


F749 

05 

59 


ORA 

$59 


F74R 

05 

59 


STA 

$59 


F74D 

A5 

55 


LDA 

$55 


F74F 

29 

FO 


AND 

#$F0 

isolato hi-nibblo 

F751 

4A 



LSR 

A 


F752 

4A 



LSR 

A 

shift to lower nibble 

F753 

4A 



LSR 

A 


F754 

4A 



LSR 

A 


F755 

AA 



TAX 


as index in table 

F756 

BD 

7F 

F7 

LDA 

$F77F,X 
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F759 

6A 


POR 

A 



F75A 

66 

5A 

POR 

$5A 



F75C 

OA 


POR 

A 



F75D 

66 

5A 

POR 

$5A 



F75F 

6A 


POR 

A 



F760 

66 

5A 

ROR 

$5A 



F762 

29 

03 

AND 

#$03 



F764 

05 

j9 

ORA 

$59 



F766 

91 

30 

STA 

($30),Y 

in buffer 


F768 

C8 


INX 


increment buffer 

pointer 

F769 

DO 

04 

BNB 

$F76F 


F76B 

A5 

2F 

LDA 

$2F 



F76D 

85 

31 

STA 

$31 



F76F 

A5 

55 

LDA 

$55 



F771 

29 

OF 

AND 

#$0F 

lowor nibbio 


F773 

AA 


TAX 


as index 


F774 

UD 

7F F7 

LDA 

SF77F,X 



F777 

05 

5A 

ORA 

$5A 



F779 

91 

30 

STA 

($30),Y 

in buffer 


F77B 

C8 


INY 


increment buffer 

pointer 

F77C 

84 

34 

STY 

$34 

and savo 

F77E 

60 


RTS 





F77F OA OB 12 13 OE OF 16 17 
F787 09 19 lA IB OD ID lE 15 


****************************** 


F78F 

A9 

00 

LDA 

#$00 

F791 

85 

30 

STA 

$30 

F793 

85 

2E 

STA 

$2E 

F795 

85 

36 

STA 

$36 

F797 

A9 

BB 

LDA 

«$BB 

F799 

85 

34 

STA 

$34 

F79B 

85 

50 

STA 

$50 

F79D 

A5 

31 

LDA 

$31 

F79F 

85 

2F 

STA 

$2F 

F7A1 

A9 

01 

LDA 

• $01 

F7A3 

85 

31 

STA 

$31 

F7A5 

A5 

47 

LDA 

$47 

F7A7 

85 

52 

STA 

$52 

F7A9 

A4 

36 

LDY 

$36 

F7AB 

B1 

2E 

LDA 

(S2E),Y 

F7AD 

85 

53 

STA 

$53 

F7AF 

C8 


INY 


F7B0 

B1 

2B 

LDA 

($2E),Y 

F7B2 

85 

54 

STA 

$54 

F7B4 

C8 


INY 


F7B5 

DI 

2E 

LDA 

($2B),Y 

F7B7 

85 

55 

STA 

$55 

F7B9 

CO 


INY 


F7DA 

84 

36 

STY 

$36 

F7BC 

20 

DO F6 

JSR 

SF6D0 

F7BF 

A4 

36 

LDY 

$36 

F7C1 

ni 

2E 

LDA 

($2E),Y 
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F7C3 

85 

52 

STA 

$52 

F7C5 

C8 


INY 


F7C6 

FO 

11 

BEO 

$F7D9 

F7ca 

U1 

2E 

LDA 

(S2B) ,Y 

F7CA 

85 

53 

STA 

$53 

F7CC 

C8 


livY 


F7CD 

B1 

2E 

LDA 

($2E) ,Y 

F7CF 

85 

54 

STA 

$54 

F7D1 

C8 


INY 


F7D2 

B1 

2E 

LDA 

($2E),Y 

F7D4 

85 

55 

STA 

$55 

F7D6 

C8 


INY 


F7D7 

DO 

E1 

BNE 

$F7BA 

F7D9 

A5 

3A 

LDA 

$3A 

F7DB 

85 

53 

STA 

$53 

F7DD 

A9 

00 

LDA 

»$00 

F7DF 

85 

54 

STA 

$54 

F7E1 

85 

55 

STA 

$55 

F7E3 

4C 

DO F6 

JHP 

$F6D0 

F7E6 

A4 

34 

LDY 

$34 

F7E8 

DI 

30 

LDA 

($30) ,Y 

F7EA 

29 

F8 

AND 

#$F8 

F7EC 

4A 


LSR 

A 

F7ED 

4A 


LSR 

A 

F7EE 

4A 


LSR 

A 

F7EF 

85 

56 

STA 

$56 

F7F1 

DI 

30 

LDA 

($30),Y 

F7F3 

29 

07 

AND 

#S07 

F7F5 

OA 


ASL 

A 

F7Ff> 

OA 


ASL 

A 

F7F7 

85 

57 

STA 

$57 

F7F9 

C8 


INY 


F7FA 

DO 

06 

BNE 

$F802 

F7FC 

A5 

415 

LDA 

S4E 

F7FE 

85 

31 

STA 

$31 

F800 

A4 

4F 

LDY 

$4F 

F802 

B1 

30 

LDA 

($30),Y 

Fa 04 

29 

CO 

AND 

ll$CO 

F806 

2A 


ROL 

A 

F807 

2A 


ROL 

A 

F808 

2A 


ROL 

A 

F009 

05 

57 

ORA 

$57 

F80I3 

85 

57 

STA 

$57 

F80I) 

in 

30 

LDA 

($30),Y 

FOOF 

29 

3E 

AND 

(t$3E 

F811 

4A 


LSR 

A 

F812 

85 

58 

STA 

$58 

F814 

B1 

30 

LDA 

($30),Y 

F816 

29 

01 

AND 

#$01 

F818 

OA 


ASL 

A 

F819 

OA 


ASL 

A 

FBI A 

OA 


ASL 

A 

F81U 

OA 


ASL 

A 

F81C 

85 

59 

STA 

$59 


- Zia - 
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F81E 

C8 



INY 


F81F 

B1 

30 


LDA 

($30),Y 

F82a 

29 

FO 


AND 

»$FO 

F623 

4A 



LSR 


F824 

4A 



LSR 

A 

FB25 

4A 



LSR 

A 

F826 

4A 



LSR 

A 

F827 

OS 

59 


ORA 

$59 

F829 

85 

59 


STA 

$59 

F82B 

BX 

30 


LDA 

($30),Y 

F82D 

29 

OF 


AND 

#$0F 

F82F 

OA 



ASL 

A 

F830 

85 

5A 


STA 

$5A 

F832 

C8 



INY 


F033 

BX 

30 


LDA 

($30),Y 

P835 

29 

80 


AND 

*$80 

F837 

X8 



CLC 


F838 

2A 



ROL 

A 

F839 

2A 



ROL 

A 

F8 3A 

29 

OX 


AND 

#$0X 

F8 3C 

05 

5A 


ORA 

$SA 

F83E 

85 

5A 


STA 

$5A 

F840 

BX 

30 


LDA 

($30),Y 

F842 

29 

7C 


AND 

#S7C 

F844 

4A 



LSR 

A 

F845 

4A 



LSR 

A 

F846 

85 

SB 


STA 

S5B 

F848 

BX 

30 


LDA 

($30),Y 

F84A 

29 

03 


AND 

#$03 

F84C 

OA 



ASL 

A 

F84D 

OA 



ASL 

A 

F84B 

OA 



ASL 

A 

F84F 

85 

5C 


STA 

$5C 

P851 

C8 



INY 


F052 

DO 

06 


ONE 

$F85A 

F854 

A5 

4 E 


LDA 

$4E 

F856 

85 

3X 


STA 

S3X 

F858 

A4 

4F 


LDY 

$4F 

F85A 

BX 

30 


LDA 

($30),Y 

F85C 

29 

EO 


AND 

#SE0 

F85E 

2A 



ROL 

A 

F85F 

2A 



ROL 

A 

F860 

2A 



ROL 

A 

Feei 

2A 



ROL 

A 

F862 

05 

5C 


ORA 

$5C 

8864 

85 

5C 


STA 

$5C 

F866 

BX 

30 


LDA 

($30),Y 

F868 

29 

XF 


AND 

#$1F 

F86A 

85 

5D 


STA 

$5D 

F86C 

C8 



INY 


F86D 

84 

34 


STY 

$34 

F86F 

A6 

56 


LDX 

$56 

F871 

BD 

AO 

F8 

LDA 

SF8A0,X 

F874 

A6 

57 


LDX 

$57 

F876 

XD 

CO 

F8 

ORA 

$F8C0,X 
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F079 

85 

52 


STA $52 

F87B 

A6 

58 


LDX $58 

F87D 

BD 

AO 1 

F8 

LDA $FaAO,X 

F880 

A6 

59 


LDX $59 

F882 

ID 

CO 1 

F8 

ORA $F8C0,X 

F885 

85 

53 


STA $53 

F887 

A6 

5A 


LDX $5A 

F889 

BD 

AO 

F8 

LDA $F8A0,X 

F8BC 

A6 

5D 


LDX $5D 

F88E 

ID 

CO 

FB 

ORA $F8C0,X 

F891 

85 

54 


STA $54 

F893 

A6 

5C 


LDX $5C 

F895 

BD 

AO 

F8 

LDA $F8A0,X 

F898 

A6 

5D 


LDX $5D 

F89A 

ID 

CO 

F8 

ORA $F8C0,X 

F89D 

85 

55 


STA $55 

F89F 

60 



RTS 

****************************** 

F8A0 

FF FF FF 

FF 

FF FF FF FF 

F8A8 

FF 80 00 

10 

FF CO 40 50 

F8B0 

FF FF 20 

30 

FF FO 60 70 

F8U8 

FF 90 AO 

DO 

FF DO EO FF 

F8C0 

FF FF FF 

FF 

FF FF FF FF 

F8C8 

FF 08 00 

01 

FF OC 04 05 

F8D0 

FF FF 02 

03 

FF OF 06 07 

F8D8 

FF 09 OA 

OH 

FF OD OE FF 

ti,*********************»****** 

F8E0 

A9 

00 


LDA #$00 

F8E2 

85 

34 


STA $34 

F8E4 

85 

2E 


STA $2E 

F8E6 

85 

36 


STA $36 

F8E8 

A9 

01 


LDA #$01 

F8EA 

85 

4E 


STA $4E 

F8EC 

A9 

riA 


LDA #$HA 

FBEE 

85 

4F 


STA $4F 

F8 FO 

A5 

31 


LDA $31 

F8F2 

85 

2F 


STA $2F 

F8F4 

20 

E6 

F7 

JSR $F7E6 

F8F7 

A5 

52 


LDA $52 

F8F9 

85 

38 


STA $38 

F8FH 

A4 

36 


LDY $36 

F8FD 

A5 

53 


LDA $53 

F8FF 

91 

2 E 


STA ($2B),Y 

F901 

CH 



INY 

F902 

A5 

54 


I.DA $54 

F904 

91 

2 E 


STA (S2E),Y 

F906 

C8 



INY 

F907 

A5 

55 


LDA $55 

F909 

91 

2 E 


STA (S2E),Y 

F90B 

CB 



INY 

F9nc 

84 

36 


STY $36 

F90E 

20 

K6 

F7 

JSR SF7K6 
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F911 

A4 

36 


LDY 

$36 

F913 

A5 

52 


EDA 

$52 

F915 

91 

2R 


STA 

($2E),Y 

F917 

C8 



INY 


F918 

FO 

11 


BEO 

$F92B 

F91A 

A5 

53 


EDA 

$53 

F91C 

91 

2E 


STA 

($2E),Y 

F91B 

C8 



INY 


F91F 

A5 

54 


EDA 

$54 

F921 

91 

2B 


STA 

(S2E),Y 

F923 

C8 



INY 


F924 

A5 

55 


EDA 

$55 

F926 

91 

2B 


STA 

($2B),Y 

F928 

C8 



INY 


F929 

DO 

E1 


BNE 

$F90C 

F92B 

A5 

53 


EDA 

$53 

F92n 

85 

3A 


STA 

$3A 

F92F 

A5 

2F 


EDA 

$2F 

F93X 

85 

31 


STA 

$31 

F933 

60 



RTS 


F9 34 

A5 

31 


EDA 

$31 

F936 

85 

2F 


STA 

$2F 

F9 38 

A9 

00 


EDA 

«$00 

F93A 

85 

31 


STA 

$31 

F93C 

A9 

24 


EDA 

*$24 

F93t' 

85 

34 


STA 

$34 

F940 

A5 

39 


EDA 

$39 

F942 

85 

52 


STA 

$52 

F944 

A5 

lA 


EDA 

$1A 

F946 

85 

53 


STA 

$53 

F948 

A5 

19 


EDA 

$19 

F94A 

85 

54 


STA 

$54 

F94C 

A5 

18 


EDA 

$18 

F94E 

85 

55 


STA 

$55 

F950 

20 

DO 

F6 

JSR 

$F6D0 

F953 

A5 

17 


EDA 

$17 

F955 

85 

52 


STA 

$52 

F957 

A5 

16 


EDA 

$16 

F959 

85 

53 


STA 

$53 

F95B 

A9 

00 


EDA 

*$00 

F95D 

85 

54 


STA 

$54 

F95F 

85 

55 


STA 

$55 

F961 

20 

DO 

F6 

JSR 

$F6D0 

F964 

A5 

2F 


EDA 

$2F 

F966 

85 

31 


STA 

$31 

F968 

60 



RTS 


F969 

A4 

3F 


EDY 

$3F 

F96U 

99 

00 

00 

STA 

$0000,Y 

F96E 

A5 

50 


EDA 

$50 

F970 

FO 

03 


BEO 

$F975 

F972 

20 

F2 

F5 

JSR 

$F5F2 

F975 

20 

8F 

F9 

JSR 

$F98F 

F97n 

A6 

49 


EDX 

$49 


got stack pointer back 
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F97A 

9A 



TXS 


F97B 

4C 

BF. 

F2 

JMP SF2BE 


F97E 

A9 

AO 


LDA »$A0 


F980 

85 

20 


STA $20 


F982 

AD 

00 

IC 

LDA $1C00 


F985 

09 

04 


ORA *$04 

turn drive motor off 

F987 

8D 

00 

IC 

STA $1C00 


F98A 

A9 

3C 


LDA S3C 


F98C 

85 

48 


STA $48 


F98E 

60 



RTS 


F98F 

A6 

3E 


LDX $3E 


F99X 

A5 

20 


LDA $20 


F993 

09 

10 


ORA *$10 


F995 

85 

20 


STA $20 


F997 

A9 

FF 


LDA #$FF 


P999 

85 

48 


STA $48 


F99B 

60 



RTS 


F99C 

AD 

07 

IC 

LDA $1C07 


F99F 

8D 

05 

IC 

STA $1C05 


F9A2 

AD 

00 

IC 

LDA SICOO 


F9A5 

29 

10 


AND *$10 

wrlte protect? 

F9A7 

C5 

lE 


CMP $1E 


F9A9 

85 

lE 


STA $1E 


F9AB 

FO 

04 


BEO $F9B1 


F9AD 

A9 

01 


LDA *$01 


F9AF 

85 

IC 


STA $1C 


F9B1 

AD 

FE 

02 

LDA $02FE 


F9B4 

FO 

15 


BEO $F9CB 


F9B6 

C9 

02 


CMP »$02 


F9BB 

DO 

07 


ONE $F9C1 


F9DA 

A9 

00 


LDA *$00 


F9BC 

BD 

FE 

02 

STA $02FE 


F9BF 

FO 

OA 


BEO $F9CB 


F9C1 

85 

4A 


STA $4A 


F9C3 

A9 

02 


LDA *$02 


F9C5 

8D 

FE 

02 

STA $02FE 


F9C8 

4C 

2E 

FA 

JMP $FA2E 


F9CB 

A6 

3E 


LDX $3E 


F9CD 

30 

07 


BMI $F9D6 


F9CF 

A5 

20 


LDA $20 


F9D1 

AB 



TAY 


F9D2 

C9 

20 


CMP #$20 


F9D4 

DO 

03 


BNE $F9D9 


F9D6 

4C 

BE 

FA 

JMP $FABE 


F9D9 

C6 

48 


DEC $48 


F9DB 

DO 

ID 


BNE $F9FA 


F9DD 

98 



TVA 


F9DE 

10 

04 


BPL SF9E4 


F9E0 

29 

7F 


AND #$7F 


F9E2 

85 

20 


STA $20 
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E9E4 

29 

10 


AND 

*$10 

F9E6 

FO 

12 


BEO 

SF9FA 

F9Ea 

AD 

00 

le 

LDA 

SICOO 

F9ED 

29 

FB 


AND 

#$FB 

F9ED 

80 

00 

le 

STA 

SICOO 

F9F0 

A9 

FF 


LDA 

#SFF 

F9F2 

85 

3E 


STA 

S3E 

F9F4 

A9 

00 


LDA 

t$00 

F9F6 

85 

20 


STA 

$20 

F9F8 

FO 

DC 


BEO 

$F9D6 

F9FA 

98 



TYA 


F9FB 

29 

40 


AND 

»$40 

F9FD 

DO 

03 


BNE 

$FA02 

F9FF 

4C 

DE 

FA 

JMP 

$ FABE 

FA02 

6C 

62 

00 

JMl> 

($0062) 

FA05 

A5 

4A 


LDA 

#$4A 

FA07 

10 

05 


DPL 

SFAOE 

FA09 

49 

FF 


EOB 

#$FF 

FAOU 

18 



eLe 


FAOC 

69 

01 


ADe 

#$01 

FACE 

C5 

64 


OMP 

$64 

PAIO 

BO 

OA 


Bes 

SFAIC 

FAI 2 

A9 

3U 


LDA 

#$3B 

FA14 

85 

62 


STA 

$62 

FAI 6 

A9 

FA 


LDA 

#$FA 

FA18 

85 

63 


STA 

$63 

FAI A 

DO 

12 


BNE 

$FA2E 

FAIC 

E5 

5E 


SBe 

S5E 

FAI E 

E5 

5E 


SBC 

$5E 

FA20 

85 

61 


STA 

$61 

FA22 

A5 

5 E 


I,DA 

$5E 

FA24 

85 

60 


STA 

$60 

FA26 

A9 

7B 


LDA 

#$7D 

FA28 

85 

62 


STA 

$62 

FA2A 

A9 

FA 


LDA 

#$FA 

FA2C 

85 

63 


STA 

$63 

FA2E 

A5 

4A 


LDA 

$4A 

FA30 

10 

31 


BPL 

$FA63 

FA32 

E6 

4A 


INC 

$4A 

FA34 

AE 

00 

le 

LDX 

SICOO 

FA37 

CA 



DEX 


FA38 

4C 

69 

FA 

JMP 

$FA69 

i,***»**»i,t**i.i.*i,************* 

FA3n 

A5 

4A 


LDA 

S4A 

FA3D 

DO 

EF 


BNE 

$FA2E 

FA3F 

A9 

4E 


LDA 

l$4E 

FA41 

85 

62 


STA 

$62 

FA4 3 

A9 

FA 


LDA 

#$FA 

FA45 

85 

63 


STA 

$63 

FA47 

A9 

05 


LDA 

*$05 

FA49 

85 

60 


STA 

$60 

FA4B 

4C 

BE 

FA 

JMP 

SFABE 


drive motor on 


pointer $62/S63 to SfA3B 

pointer $62/$63 to S1'A7B 
step counter for head transport 
inerement 

step counter for head tranj port 
not yet zero? 

pointer $62/$63 to $KA4E 

counter to 5 
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FA4E 

C6 

60 


DEC $60 

decreiiient counter 

FA50 

DO 

6C 


DNE $FAPE 

not yet zero? 

FA52 

A5 

20 


LDA $20 


FA54 

29 

IIP 


AND #$BF 

erase bit 6 

FA56 

85 

20 


STA $20 


FA58 

A9 

05 


LDA *$05 


PA5A 

85 

62 


STA $62 


FA5G 

A9 

FA 


LDA #$FA 

pointer $62/$63 to FA05 

FASE 

85 

63 


STA $63 


FA60 

4C 

BE 

FA 

JMP $FADE 


****************************** 


FA63 

C6 

4A 


DEC $4A 

step counter fot head transport 

FA65 

AE 

00 

IC 

LDX $1C00 


FA6B 

E8 



INX 


FA69 

BA 



TXA 


FA6A 

29 

03 


AND *$03 


FA6C 

85 

4B 


STA $4D 


FA«E 

AD 

00 

IC 

LDA SICOO 


FA71 

29 

FC 


AND «$FC 


FA73 

05 

4D 


ORA $4B 

steppor motor off 

FA75 

8D 

00 

IC 

STA $1C00 


PA70 

4C 

BB 

FA 

JMP $FAHE 



****************************** 


FA7B 

38 



SEC 


FA7C 

AD 

07 

IC 

LDA $1C07 


FA7F 

ES 

5F 


SBC $5F 


FASI 

8D 

05 

IC 

STA $1C05 


PAa4 

C6 

60 


DEC $60 

deccement counter 

FA86 

DO 

OC 


BNE $FA94 

not yot zero? 

FA8B 

A5 

5E 


LDA $5E 


FASA 

85 

60 


STA $60 


FA8C 

A9 

97 


STA «$97 


FA8B 

85 

62 


STA $62 


FA90 

A9 

FA 


LDA ISFA 

pointer S62/$63 to $FA97 

FA92 

85 

63 


STA $63 

FA94 

4C 

2E 

FA 

JMP $FA2E 



****************************** 


FA97 

C6 61 

DEC $61 


FA99 

DO F9 

BNE $FA94 


KA9D 

A9 A5 

LDA *$A5 


FA9D 

85 62 

STA $62 


FA9F 

A9 FA 

LDA »$FA 

pointer $62/$63 to $FAA5 

FAAl 

85 63 

STA $63 


FAA3 

DO F.F 

BNE $FA94 



****************************** 


FAA5 

FAA8 

AD 

18 

07 

IC 

LDA 

CLC 

$1C07 

FAA9 

65 

5F 


ADC 

S5F 

FAAB 

OD 

05 

IC 

STA 

$1C05 
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FAAE 

C6 

60 


DEC 

$60 

FAIIO 

DO 

E2 


BNE 

$FA94 

FAB2 

A9 

4E 


LDA 

(t$4E 

FAU4 

85 

62 


STA 

$62 

FAB6 

A9 

FA 


LDA 

#$FA 

FABB 

85 

63 


STA 

$63 

FABA 

A9 

05 


LDA 

#$05 

FABC 

85 

60 


STA 

$60 

FABE 

AD 

OC 

IC 

LDA 

$1C0C 

FACI 

29 

FD 


AND 

#$FD 

FAC3 

8D 

OC 

IC 

STA 

$1C0C 

FAC6 

60 



RTS 


*************************** 

FAC7 

A5 

51 


LDA 

$51 

FAC9 

10 

2A 


BPL 

SFAF5 

FACB 

A6 

3D 


LDX 

S3D 

FACD 

A9 

60 


LDA 

#$60 

FACF 

95 

20 


STA 

$20,X 

FADl 

A9 

01 


LDA 

«$01 

FAD3 

95 

22 


STA 

$22,X 

FAD5 

85 

51 


STA 

$51 

FAD7 

A9 

A4 


LDA 

#$A4 

FAD9 

85 

4A 


STA 

$4A 

FADB 

AD 

00 

IC 

LDA 

$1C00 

FADE 

29 

FC 


AND 

#$FC 

FAEO 

8D 

00 

IC 

STA 

$1C00 

FAE3 

A9 

OA 


LDA 

#$0A 

FAE5 

SD 

20 

06 

STA 

$0620 

FAE8 

A9 

AO 


LDA 

#$40 

FAEA 

8D 

21 

06 

STA 

$0621 

FAED 

A9 

OF 


LDA 

#$0F 

FAEF 

8D 

22 

06 

STA 

$0622 

FAP2 

4C 

9C 

F9 

JHP 

$F99C 

FAF5 

AO 

00 


LDY 

*$00 

FAF7 

DI 

32 


CMP 

($32) 

FAF9 

FO 

05 


BEO 

$FB00 

FAFB 

91 

32 


STA 

($32) 

FAFD 

4C 

9C 

F9 

JI4P 

$F99C 

FBOO 

AD 

00 

IC 

LDA 

$1C00 

FB03 

29 

10 


AND 

*$10 

FB05 

DO 

05 


BNE 

$FB0C 

FB07 

A9 

08 


LDA 

#$08 

FH09 

4C 

D3 

FD 

JMP 

$FDP3 

FBOC 

20 

A3 

FD 

JSR SFDA3 

FBOF 

20 

C3 

FD 

JSB 

$ FDC3 

FBI 2 

A9 

55 


LDA 

#$55 

FB14 

8D 

01 

IC 

STA 

$1C()1 

FB17 

20 

C3 

FD 

JSR 

SFUC3 

FBI A 

20 

00 

FE 

JSR 

$FE00 

FBID 

20 

56 

F5 

JSR 

$F556 

FB20 

A9 

40 


LDA 

#$40 


decrcmont countcr 
not yct zero? 

pointer $62/$63 to SFA4K 


counter to 5 
crase bit 1 


formatting 
track number 

fomatting already in progress 

drive number 

flag for head transport 

set 

set destination track 
running track # for format 
164 

stop counter for head transport 
stepper motor on 
10 

error counter 
$621/$622 = 4000 
initiaiize track capacity 
4000 < capacity < 2*4000 bytes 

back in job loop 


to job loop 


write protect? 
no 

26, 'write protcct on' 

write SFF to disk 10240 tlroes 
code (S621/$622) times to disk 
S55 

to write head 

and ($621/6622) times to disk 

switch to read 

set timor, find $FF (SYNC) 
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FB22 

OD 

OB 

18 

ORA 

$180B 

FH25 

8D 

OH 

18 

STA 

$180B 

FB28 

A9 

62 


EDA 

#S62 

FB2A 

8D 

06 

18 

STA 

$1806 

FB2D 

A9 

00 


LDA 

#$00 

FB2F 

8D 

07 

18 

STA 

$1807 

FB32 

8D 

05 

18 

STA 

$1805 

FB35 

AO 

00 


LDY 

#$00 

FB37 

A2 

00 


LDX 

#$00 

FB39 

2C 

00 

IC 

BIT 

$1C00 

FB3C 

30 

FB 


BMI 

$FB39 

FB3K 

2C 

00 

IC 

BIT 

$1C00 

FB41 

10 

FB 


BPL 

$FB3E 

FU43 

AD 

04 

18 

EDA 

$1804 

FB46 

2C 

00 

IC 

BIT 

$1C00 

FB49 

10 

11 


BPE 

$FB5C 

FB4B 

AD 

OD 

18 

EDA 

$180D 

FB4E 

OA 



ASE 

A 

FU4 F 

10 

F5 


BPE 

$FB46 

FBM 

B8 



INX 


FU52 

DO 

EF 


BNE 

$FB4 3 

FU54 

C8 



INY 


FB55 

DO 

EC 


BNE 

$FB4 3 

FD57 

A9 

02 


EDA 

#$02 

FB59 

4C 

D3 

FD 

JMP 

$FDD3 

FB5C 

86 

71 


STX 

$71 

FB5E 

84 

72 


STY 

$72 

FB60 

A2 

00 


EDX 

#$00 

FBfi2 

AO 

00 


EDY 

#$00 

FB64 

AD 

04 

18 

EDA 

$1804 

FH67 

2C 

00 

IC 

BIT 

$1COO 

FBEA 

30 

11 


BMI 

SFB7D 

FB6C 

AD 

OD 

18 

EDA 

$180D 

FB6F 

OA 



ASE 

A 

FU70 

10 

F5 


BPE 

$FB67 

FB72 

E8 



INX 


FB73 

DO 

EF 


BNE 

$FB64 

FB75 

C8 



INY 


FB76 

DO 

EC 


BNE 

SFB64 

FB78 

A9 

02 


EDA 

«$02 

FB7A 

4C 

D3 

FD 

JMP 

$FDD3 

FB7D 

38 



SEC 


FB7E 

8A 



TX A 


FB7F 

E5 

71 


SBC 

$71 

FBBl 

AA 



TAX 


FB82 

85 

70 


STA 

$70 

FU84 

98 



TYA 


FB85 

E5 

72 


SBC 

$72 

FB87 

A8 



TAY 


FD88 

85 

71 


STA 

$71 

FUSA 

10 

OB 


BPE 

SFB97 

FBSC 

49 

FF 


EOR 

#SFF 

PUBE 

A8 



TAY 



timer 1 free running 
98 cycles, about 0.1 ms 


start timer 
counter to zero 

SYNC found? 
no, Walt 
SYNC found? 
wait for SYNC 

reset interrupt flag timer 
SYNC found? 
not SYNC (S55)? 
interrupt flag register 
shift timer flag 
timer not run down yet? 
increment counter 

increroent hi-byte of counter 

overflow, then error 
20, 'read error' 


counter to zero agaln 
reset timer 1 interrupt flag 
SYNC found? 
yes 

interrupt-flag register 

timer flag to bit 7 

no, wait until timer run down 

increroent counter 


overflow, then error 
20, 'read error' 


difference between counter 


and value for $FF-storage 
bring to S70/S71 
difference positive? 
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FB8F 

8A 



TXA 


FB90 

49 

FF 


EOR 

#$FP 

FB92 

AA 



TAX 


FB93 

E8 



INX 


FB94 

DO 

01 


BNE 

$FB97 

FB96 

C8 



INY 


FB97 

98 



TYA 


FB98 

DO 

04 


BNE 

$FB9E 

FB9A 

EO 

04 


CPX 

#$04 

FB9C 

90 

18 


BCC 

$FBB6 

FB9E 

06 

70 


ASL 

$70 

FBAO 

26 

71 


ROL 

$71 

FBA2 

18 



CLC 


FBA3 

A5 

70 


LDA 

$70 

FBA5 

6D 

21 

06 

ADC 

$0621 

F8A8 

8D 

21 

06 

STA 

$0621 

FBAB 

AS 

71 


LDA 

$71 

FBAD 

6D 

22 

06 

ADC 

$0622 

FBBO 

8D 

22 

06 

STA 

$0622 

FBB3 

4C 

OC 

FB 

JHP 

$FB0C 

FBB6 

A2 

00 


LDX 

#$on 

FBB8 

AO 

00 


LDY 

#$00 

FBBA 

B8 



CLV 


FBBB 

AD 

00 

IC 

LDA 

SICOO 

FBBE 

10 

OE 


BPL 

$FBCE 

FBCO 

50 

59 


BVC 

$FBBB 

FBC2 

B8 



CLV 


FBC3 

EB 



INX 


FBC4 

DO 

F5 


BNE 

$FBBB 

FBC6 

C8 



INY 


FBC7 

DO 

F2 


BNE 

$FbBB 

F1JC9 

A9 

03 


LDA 

#$03 

FBCB 

4C 

D3 

FD 

JMP 

$FDD3 

FBCE 

8A 



TXA 


FBCF 

OA 



ASL 

A 

FBDO 

8D 

25 

06 

STA 

$0625 

FDD3 

98 



TYA 


FBD4 

2A 



ROL 

A 

FBD5 

BD 

24 

06 

STA 

$0624 

FBDB 

A9 

BF 


LDA 

#$BF 

FBDA 

2D 

OB 

18 

AND 

$180B 

FBDD 

8D 

OB 

18 

STA 

$100B 

FBEO 

A9 

66 


LDA 

»$66 

FBE2 

8D 

26 

06 

STA 

$0626 

FBE5 

A6 

43 


LDX 

$43 

FBE7 

AO 

00 


LDY 

*$00 

FBE9 

98 



TYA 


FBEA 

18 



CLC 


FBEB 

6U 

26 

06 

ADC 

$0626 

FBEE 

90 

01 


BCC 

$FBF1 

FBFO 

C8 



INY 


FBFl 

C8 



INY 


FBF2 

CA 



DEX 



calculate abs. vai of dlfference 


dlfference less than 4 * 0.1 ns 
yes 

doublé dlfference 

add to 4000 

repeat untll dlff < 4 * 0.1 me 

counter to zero 

SYNC? 

no 

byte ready? 

incremont counter 

overflow, then error 
21 t read error 

doublé counter 

and to $624/$e25 as track cap. 

102 

number of soctors in this track 
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FUF3 

DO 

F6 


BNE 

$FBEA 

FUF5 

49 

FF 


EOR 

#$FF 

FBF7 

38 



SEC 


FBF8 

69 

00 


ADC 

#S00 

FHFA 

18 



CLC 


FBFB 

6D 

26 

06 

ADC 

$0626 

FBFE 

BO 

03 


BCS 

SFC03 

FCOO 

CE 

24 

06 

DEC 

$0624 

FC03 

AA 



TAX 


FC04 

98 



T7A 


l'COS 

49 

FF 


EOF 

#$FF 

FC07 

38 



SEC 


FCOH 

69 

00 


ADC 

»$00 

FCOA 

18 



C1.C 


FCOB 

6D 

24 

06 

ADC 

$0624 

FCOI-; 

10 

05 


Bl'L 

$FC15 

FC11) 

A9 

04 


r.DA 

#S04 

KC12 

4C 

D3 

FD 

JHF 

SFDD3 

FC15 

A8 



TAV 


FC16 

8A 



TX A 


FC17 

A2 

00 


(,DX 

«$00 

FC19 

38 



SEC 


KCIA 

E5 

43 


SBC 

$43 

FCIC 

BO 

03 


BCS 

$FC21 

PCIF. 

88 



DEV 


FCIF 

30 

03 


HMI 

SFC24 

FC21 

E8 



INX 


FC22 

DO 

F6 


BNE 

$FC19 

FC24 

8 E 

26 

06 

STX 

$0626 

FC27 

EO 

04 


CFX 

#$04 

FC29 

BO 

06 


BCS 

$FC30 

FC2B 

A9 

06 


LDA 

#$06 

FC2D 

4C 

03 

FD 

JMP 

SFDD3 

FC30 

18 



CLC 


FC31 

66 

43 


ADC 

$43 

FC33 

8D 

27 

06 

STA 

$0627 

FC36 

A9 

00 


LDA 

#$00 

FC31I 

8D 

28 

06 

STA 

$0628 

FC3B 

AO 

00 


LDY 

»$00 

FC3D 

A6 

3D 


LDX 

S3D 

FC3F 

A5 

39 


LDA 

$39 

FC4 1 

99 

00 

03 

STA 

$0300,Y 

FC44 

C8 



INT 


FC4 5 

C8 



INY 


FC4 6 

AD 

28 

06 

LDA 

$0628 

FC49 

99 

00 

03 

STA 

$0300,Y 

FC4C 

CO 



INY 


FC4 D 

A5 

61 


LDA 

$51 

FC4F 

99 

00 

03 

STA 

$0300,Y 

FC52 

C8 



INY 


FC53 

B5 

13 


LDA 

$13,X 

FC65 

99 

00 

03 

STA 

$0300,Y 

FC58 

C8 



INY 


FC59 

06 

12 


LDA 

$12,X 


calculate t of bytes 


rosult in A/X 


22, 'road error' 


total divldcd by nuraber 
o£ sectors ($43) 


comparo no, o£ bytes per interval 
with minimum value 
ok 

23, 'road orror' 
remainder o£ division 
plus numbcr o£ sectors 
save 

counter £or sectors 
counter lo 
drive numbor 

Constant 8, marker £or lieacer 
in bu££er 


sector number 
in bu££er 

track number 
in bu££or 

ID 2 

in buffer 
ID 1 
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FC5D 

99 

00 

03 

STA 

$0300,Y 

FC5E 

C8 



INY 


FC5F 

A9 

OF 


EDA 

#$0F 

FC61 

99 

00 

03 

STA 

$0300,Y 

FC64 

C8 



INY 


FC65 

99 

00 

03 

STA 

$0300,Y 

FC68 

C8 



INY 


FC69 

A9 

00 


EDA 

#$00 

FC6B 

59 

FA 

02 

EOR 

$02FA,Y 

FC6B 

59 

FB 

02 

EOR 

$02FB,Y 

FC71 

59 

FC 

02 

EOR 

S02FC,Y 

FC74 

59 

FD 

02 

EOR 

S02FD,Y 

FC77 

99 

F9 

02 

STA 

$02F9,Y 

FC7A 

EE 

28 

06 

INC 

$0628 

FC7D 

AD 

28 

06 

EDA 

$0628 

FC80 

C5 

43 


CMP 

$43 

FC82 

90 

BB 


BCC 

$FC3F 

FC84 

90 



TYA 


FC85 

48 



PHA 


FC86 

E8 



INX 


FC87 

OA 



TXA 


FC88 

9D 

00 

05 

STA 

$0500,X 

FC8B 

E8 



INX 


FC8C 

DO 

FA 


BNE 

$FC88 

FC8E 

A9 

03 


EDA 

#$03 

FC90 

85 

31 


STA 

$31 

FC92 

20 

30 

FE 

JSR 

$FE30 

FC95 

68 



PEA 


FC96 

A8 



TAY 


FC97 

88 



DEY 


FC98 

20 

E5 

FD 

JSR 

$FDE5 

FC9B 

20 

F5 

FD 

JSR 

$FDF5 

FC9E 

A9 

05 


EDA 

#$05 

FCAO 

85 

31 


STA 

$31 

FCA2 

20 

E9 

F5 

JSR 

$F5E9 

FCA5 

85 

3A 


STA 

$3A 

PCA7 

20 

8F 

F7 

JSR 

$F78F 

FCAA 

A9 

00 


EDA 

#$00 

FCAC 

85 

32 


STA 

$32 

FCAE 

20 

OE 

FE 

JSR 

$FE0E 

Fcni 

A9 

FF 


EDA 

#$FF 

FCH3 

8D 

01 

IC 

STA 

$1C01 

FCB6 

A2 

05 


I.DX 

#$05 

FCB8 

50 

FE 


BVC 

$FCB8 

FCBA 

B8 



CEV 


FCBB 

CA 



BEX 


FCHC 

DO 

FA 


BNE 

$FCB8 

FCBE 

A2 

OA 


EDX 

#$0A 

FCCO 

A4 

32 


LDY 

$32 

FCC2 

50 

FE 


BVC 

SFCC2 

FCC4 

B8 



CEV 


FCC5 

B9 

00 

03 

EDA 

$0300,Y 

FCC8 

8D 

01 

IC 

STA 

$1C01 

FCCB 

C8 



INY 


FCCC 

CA 



DFX 



in buffer 
15 

in buffer 
15 in buffer 


generate checksutn 


increment countor 
countcr 

comparo with no. of sectors 
smallcr, then continue 


buffer pointer to S300 


copy buffer data 
copy data in buffer 

buffer pointer to $500 
calcolate parity for data buffer 
and save 


to write head 
writo Sl-'l^ 5 timos 
byte ready 


10 times 
buffer pointer 
byte ready? 

data from buffer 
write 

IO data writton? 
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FCCD 

DO 

F3 


BNE 

$FCC2 


FCCF 

A2 

09 


LDX 

*$09 


FCDl 

50 

FE 


DVC 

$FCD1 


FCD3 

B8 



CLV 



FCD4 

A9 

55 


LDA 

#$55 


fCD6 

8D 

01 

IC 

STA 

$1C01 


FCD9 

CA 



DEX 



FCDA 

DO 

F5 


BNE 

$FCD1 


FCDC 

A9 

FF 


LDA 

#$FF 


FCDE 

A2 

05 


LDX 

#$05 


FCEO 

50 

FE 


DVC 

SFCEO 


FCE2 

DB 



CLV 



FCE3 

8D 

01 

IC 

STA 

$1C01 


FCE6 

CA 



DEX 



FCE7 

DO 

F7 


BNE 

$PCE0 


FCE9 

A2 

BB 


LDX 

#$BB 


FCEB 

50 

FE 


BVC 

$FCEB 


FCED 

D8 



CLV 



FCEE 

BD 

00 

01 

LDA 

$0100, 

X 

FCFl 

8D 

01 

IC 

STA 

$1C01 


FCF4 

E8 



INX 



FCF5 

DO 

F4 


BNE 

SFCEB 


FCF7 

AO 

00 


LDT 

«$00 


FCF9 

50 

FE 


BVC 

$FCF9 


FCFB 

BS 



CLV 



FCFC 

B1 

30 


LDA 

($30), 

y 

FCFE 

8D 

01 

IC 

STA 

SlCOl 


FDOl 

C8 



INY 



FD02 

DO 

F5 


BNE 

$FCF9 


FD04 

A9 

55 


LDA 

#S55 


FD06 

AE 

26 

06 

LDX 

$0626 


FD09 

50 

FE 


BVC 

$FD09 


FDOb 

ns 



CLV 



FDOC 

8D 

01 

IC 

STA 

SlCOl 


FDOF 

CA 



DEX 



FDIO 

DO 

F7 


BNE 

SFD09 


FD12 

A5 

32 


LDA 

$32 


FD14 

18 



CLC 



FD15 

69 

OA 


ADC 

#$0A 


FD17 

85 

32 


STA 

$32 


FD19 

CE 

28 

06 

DEC 

$0628 


FDIC 

00 

93 


BNE 

SFCBl 


FDIE 

50 

FE 


BVC 

SFDIE 


FD20 

B8 



CLV 



FD21 

50 

FE 


BVC 

SFD21 


FD23 

B8 



CLV 



FD24 

20 

00 

FE 

JSR 

SFEOO 


FD27 

A9 

C8 


LDA 

#$C8 


FD29 

8D 

23 

06 

STA 

$0623 


FD2C 

A9 

00 


LDA 

#$00 


FD2E 

85 

30 


STA 

$30 


FD30 

A9 

03 


LDA 

#$03 


FD32 

85 

31 


STA 

$31 


FD34 

A5 

43 


LDA 

$43 


FD36 

8D 

28 

06 

STA 

$0628 



9 tlmes 
byte ready? 

955 

write 

9 tinies? 

SFF 

5 tlmes 
byte ready? 

to write head 


area $1BB to SlFF 
save 


byte ready? 

256 bytes of data 
write byte to disk 


$55 

($626) times 


write 


plus 10 

dccremcnt sector number 

byte ready? 

byte ready? 

switch to reading 
200 


buffer pointer to $200 
number of sectors per track 
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FD39 

20 

56 

F5 

JSR 

SF556 


FD3C 

A2 

OA 


LDX 

#S0A 


FD3E 

AO 

00 


LDY 

#$00 


FD40 

50 

FE 


uve 

SFD40 


FD42 

B8 



CLV 



FD43 

AD 

01 

IC 

EDA 

$1C01 


FD46 

DI 

30 


CMP 

($30), 

Y 

FD48 

DO 

OE 


BNE 

$FD58 


FD4A 

C8 



INY 



FD4n 

CA 



DEX 



FD4C 

DO 

F2 


BNE 

$FD40 


FIKE 

18 



CLC 



FD4F 

A5 

30 


EDA 

$30 


FD51 

69 

OA 


ADC 

#$0A 


FD53 

85 

30 


STA 

$30 


FD55 

4C 

62 

FD 

JMF 

$FD62 


FD50 

CE 

23 

06 

DEC 

$0623 


FD5B 

DO 

CF 


BNE 

$FD2C 


FD5D 

A9 

06 


EDA 

#$06 


FD5F 

4C 

D3 

FD 

JMF 

$FDD3 


FD62 

20 

56 

F5 

JSR 

$F556 


FD65 

AO 

nu 


EDY 

#$BU 


FD67 

50 

FE 


uve 

$FD67 


FD69 

BO 



CEV 



FD6A 

AD 

01 

IC 

EDA 

$1C01 


FD6D 

D9 

00 

01 

CMP 

$0100, 

Y 

FD70 

DO 

E6 


BNE 

$FD50 


FD72 

CB 



INY 



FD73 

DO 

F2 


BNE 

$FD67 


FD75 

A2 

FC 


EDX 

#SFC 


KD77 

50 

FE 


uve 

$FD77 


FD79 

U8 



CEV 



FD7A 

AD 

01 

le 

EDA 

$1C01 


FD7D 

D9 

00 

05 

CMP 

$0500, 

Y 

FD80 

DO 

D6 


BNE 

SFD50 


FD82 

C8 



INY 



FD83 

CA 



DEX 



FD84 

DO 

FI 


BNE 

$FD77 


FD86 

CE 

28 

06 

DEC 

$0628 


FD89 

DO 

AE 


BNE 

$FD39 


FD8B 

E6 

51 


INC 

$51 


FD8D 

A5 

51 


EDA 

$51 


FD8F 

C9 

24 


CMP 

#$24 


FD91 

DO 

03 


BCS 

$FD96 


FD93 

4C 

9C 

F9 

JMP 

$F99C 


FD96 

A9 

FF 


EDA 

#$FF 


FD98 

85 

51 


STA 

$51 


FD9A 

A9 

00 


EDA 

#$00 


FD9C 

85 

50 


STA 

$50 


FD9E 

A9 

01 


EDA 

#$01 


FDAO 

4C 

69 

F9 

JMP 

SF969 



wait for SYNC 
10 data 

byte ready? 

read byte 

compare with data in buffer 
not cqual, error 


incremont pointer by 10 


decremont counter for attompts 

not yet zero? 

else error 

24, 'read error' 

wait for SYNC 

byte ready? 

read byte 

compare with buffer contente 
not cqual, error 

noxt byte 

byte ready? 

read byte 

compare with buffer contenta 
not cqual, then error 

next byte 

decremont sector counter 
not yet zero? 
increment track number 

comparo with 36, highest trk* +1 
greater, then formatting dono 
continuo 


track number to $PF 


ok 
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write $KF 10240 times 
switch PCR to writing 


****************************** 


FDA3 

AD 

OC 

IC 

LDA 

SICOC 

FDA6 

29 

IF 


AND 

#$1K 

FDAB 

09 

CO 


ORA 

#SC0 

FDAA 

BD 

OC 

IC 

STA 

SICOC 

FDAD 

A9 

FF 


LDA 

#SFF 

FDAF 

8U 

03 

le 

STA 

S1C03 

FDB2 

BD 

01 

IC 

STA 

SlCOl 

FDB5 

A2 

28 


LDX 

«S28 

FDB7 

AO 

00 


LDY 

#S00 

FDB9 

50 

FU 


BVe 

S FDB9 

FDUU 

B8 



CLV 


FDBC 

88 



DEV 


FDBD 

DO 

FA 


BNB 

SFD89 

FDUF 

CA 



DEX 


FOCO 

DO 

F7 


UNB 

SFDfi9 

FDC2 

60 



RTS 



****************************** 


FDC3 

AB 

21 

06 

LDX 

S0021 

FDC6 

AC 

22 

06 

LDY 

S0622 

FDC9 

50 

FB 


uve 

SFDC9 

FDCB 

B8 



CLV 


FDCC 

CA 



DBX 


FDCD 

DO 

FA 


BNB 

SFDC9 

FDCF 

88 



DEY 


FDDO 

10 

F7 


BPL 

SFDC9 

FDD2 

60 



RTS 


****************************** 

FDD3 

CE 

20 

06 

DEC 

S0620 

FDD6 

FO 

03 


BEO 

SFDDB 

FDD8 

4C 

9C 

F9 

JMP 

SF99C 

FDDB 

AO 

FF 


LDY 

*SFF 

FDDD- 

84 

51 


STY 

S51 

FDDF 

CB 



INY 


FDEO 

84 

50 


STY 

S50 

FDB2 

4C 

69 

F9 

JMP 

SF969 

«A**************************** 

FDE5 

B9 

00 

03 

LDA 

S0300,Y 

FDB8 

99 

45 

03 

STA 

S0345,V 

FDBB 

88 



DBY 


FDBC 

DO 

F7 


BNB 

SFDE5 

FDBB 

AD 

00 

03 

LDA 

S0300 

FDFl 

8D 

45 

03 

STA 

S0345 

FDF4 

60 



RTS 



FDF5 

AO 

44 


LDY 

#S44 

FDF7 

B9 

BB 

01 

LDA 

SOIBB.Y 

FDFA 

91 

30 


STA 

(S3lt) ,Y 

FDFC 

88 



DBY 


FDFD 

10 

FU 


BPL 

SFI)F7 


pori A(read/write hoad) to output 
write $FF to disk 
40 


read/write ($621/S622) times 


byte ready? 


atterapt counter for forraatting 
decroment number of attompts 
zero, then orror 
continue 


flag for end of formatting 


crror tormination 


copy buffer contenta 


SI un to SIFF 

write in buffer S30/$31 


byte ready? 
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FDFF 60 RTS 


****************************** 


FEOO 

AD 

OC IC 

LDA 

$1C0C 

FEO 3 

09 

EO 

ORA 

#$E0 

FEO 5 

8D 

OC IC 

STA 

$1C0C 

FE08 

A9 

00 

LDA 

#S00 

FEOA 

8D 

03 IC 

STA 

S1C03 

FEOD 

60 


RTS 


*****************************1 

FEOE 

AD 

OC IC 

LDA 

SICOC 

FEll 

29 

IF 

AND 

#S1F 

FE13 

09 

CO 

ORA 

#sco 

FE15 

8D 

OC le 

STA 

$1C0C 

FE18 

A9 

FF 

LDA 

#$FF 

FEIA 

8D 

03 IC 

STA 

S1C03 

FEID 

A9 

55 

LDA 

#$55 

FEIF 

8D 

01 IC 

STA 

$1C01 

FE22 

A2 

28 

LDX 

»$28 

FE24 

AO 

00 

LDY 

#S00 

FE26 

50 

PE 

BVC 

$FE26 

FE2B 

H8 


CLV 


FE29 

88 


DEY 


FE2A 

DO 

FA 

RNE 

$FE26 

FE2C 

CA 


DEX 


FE2D 

DO 

F7 

ONE 

$FE26 

FE2F 

60 


RTS 


*****************«********« É *1 

FE30 

A9 

00 

LDA 

#S00 

FE32 

85 

30 

STA 

$30 

FE34 

85 

2E 

STA 

$2E 

FE36 

85 

36 

STA 

$36 

FE38 

A9 

RD 

LDA 

#$UD 

FE3A 

85 

34 

STA 

$34 

FE3C 

A5 

31 

LDA 

$31 

FE3E 

85 

2F 

STA 

$2F 

FE40 

A9 

01 

LDA 

«$01 

FE4 2 

85 

31 

STA 

$31 

FE44 

A4 

36 

LDY 

$36 

FE46 

tu 

2E 

LDA 

($2E),Y 

FE48 

85 

52 

STA 

$52 

FK4A 

C8 


TNY 


FE4i» 

1)1 

2E 

LDA 

($2E),Y 

FE4D 

85 

53 

STA 

$53 

FE4F 

C8 


INY 


FE50 

B1 

2E 

LDA 

(S2E),Y 

FE52 

85 

54 

STA 

$54 

FE54 

C8 


INY 


FE55 

B1 

2E 

LDA 

($2E),Y 

FE57 

85 

55 

STA 

$55 

FB59 

C8 


INY 


FE5A 

FO 

08 

BEO 

$FE64 

FE5C 

84 

36 

STY 

$36 


switch to reading 
switch PCR to roadlng 

port A to input 

wrlte $55 10240 tiraes 

switch PCR to writing 

port A to output (write head) 
%01010101 

to port A (write head) 

byte ready for write electronics 

10240 timcs 
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FE5E 

02 

DO 

F6 

JSR 

$F6D0 



FE61 

4C 

44 

FR 





FE64 

4C 

DO 

F6 

JHP 

$F6D0 



A A A A A 4 

I A A A A 

r A A A 

r * * A * 

A * * A 4 

rAAAAAAA4 

' intorrupt routine 


FE67 

4U 



PIIA 




FE68 

8A 



TXA 




Fi;69 

48 



PBA 


save rogistcra 


FEUA 

98 



TYA 




FEGB 

48 



PIIA 




FE6C 

AD 

OD 

18 

LDA 

$180D 

interrupt froin serial 

bus 

FE6F 

29 

02 


AND 

#$02 



FE71 

FO 

03 


BEO 

SFE76 

no 


FR73 

20 

53 

E8 

JSR 

SE053 

servo serial bus 


FE76 

AD 

OD 

IC 

LDA 

$1C0D 

interrupt from timer 

1? 

FE79 

OA 



ASL 

A 



Fi;7A 

10 

03 


BPL 

$FE7F 

no 


FE7C 

20 

BO 

K2 

JSR 

SF2B0 

IRÒ routine for disk 

controller 

l’E7F 

68 



PLA 




FKHO 

A8 



TAY 




FF.Ul 

68 



PLA 


got rogister back 


FEII2 

AA 



TAX 




FEH3 

68 



PLA 




FEU4 

40 



PTl 





«A**************************** 

rEB5 12 
FK86 04 
FI:H7 1)4 
l • 90 

*AA*AAA*A*AA*ftA******AAAA***A* 

l’i:U9 ‘jfi 49 44 41) 42 99 
90 26 43 92 93 4I': 

1-E99 U4 09 CI FU IH 9C 
Fi;9F 07 A3 FO UH 23 00 


FFAl EO DO C8 CA CC Cll 
FEA7 E2 E7 CU CA CU l’E 

AAAA*A***A*AAA*AA*AA*AAAAAAA** 

FEAD 91 OD le 9E IC 


FEH2 92 97 41 40 

FEIin 44 53 50 55 4C 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

FEUH 44 53 50 55 52 Ist 


constants for disk format 
10, track for BAH and directory 
start of BAH at position 4 
4 bytos in BAH for oach track 
$90 = 144, end of BAH, disk nanio 

tablu of comtnand words 

’V , 'I' , ’D' , 'H' , ’B' , ’U' 

•l>*, '6', 'C, ’n', 'S', ’N' 

lo-bytes of cominand addrcsscs 


hi-bytes of command addresses 


bytes for syntax check 

tll<! control method» 

■P', ’W, 'A', 'H' 

file typos 

•0’, ’S', ’P', ’U', 'L* 

names of file types 
lotters 'D', 'S', 'P', ’O', ’R' 
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PECO 45 45 52 53 45 2nci letters 'E', 'E', 'R', 'S‘, 'E' 

FEC5 4C 51 47 52 4C 3rd letters ’L', '0', 'G', 'R', 'L' 

A***************************** 

FECA 08 00 00 

****************************** 


FECD 3F 7F DF FF 

****************************** 

FEDI 11 12 13 15 

****************************** 

fi:d5 4A 
FED6 04 
FED7 24 
FED8 IF 19 12 


****************************** 

FEDE 01 FF FF 01 00 

FEEO 03 04 05 06 07 

FEE5 07 0E 


****************************** 


FEE7 

6C 

65 

OD 

JHP ($0065) 

A***************************** 

FEEA 

80 

00 

IC 

STA $1C00 

FEED 

80 

02 

IC 

STA $1C02 

FEFO 

4C 

7D 

KA 

JMP $EA7D 

****************************** 

FEF3 

8A 



TXA 

FEF4 

A2 

05 


LDX #$05 

FEF6 

CA 



DEX 

fi;f7 

DO 

FD 


ONE $FEF6 

FEF9 

AA 



TAX 

FEFA 

60 



RTS 

FEFB 

* * * 4 

20 

t**4 

AE 

***< 

E9 

k************* 

JSR $K9AK 

FEFE 

4C 

9C 

E9 

JMP $E99C 

AAAAAAAAAAAAAAA*** ************ 

FFOl 

AD 

02 

02 

LDA $0202 

FF04 

C9 

2D 


CHP #$2D 

FF06 

FO 

05 


BEO $FF0D 

FFOn 

38 



SEC 

FF09 

E9 

20 


SOC #S20 

FFOU 

DO 

DA 


ONE SFEE7 


inasks for bit command 

number of sectors per track 
17, 18, 19, 21 

contants for disk format 

■A' marker for 1541 format 

4 track numbers 

36, highest track number + 1 

31, 25, 18 tracks with change of 

number of sectors 


control bytes for head position 

addrcssus of buffers 
high bytes 


for UI command 


for diagnostic routine 

turn LEO on 

port to output 

back to diagnostic routine 

delay loop for serial bus 


about 40 microseconds 


data output to serial bus 
CLOCK OUT hi 
DATA OUT lo 

01 vector 

I _ I 


indiroct jump over ($65) 
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FFOD 85 23 STA $23 

FFOF 60 KTS 

FFIO AA ... 

FFFl ... AA 

FFE2 52 53 52 AA 
FFE6 C6 C8 OF F9 


****************************** 

USER vectors 

FFEA 

5F 

CI) 

UA, 

Ul, 

SCD5F 

FFEC 

97 

CD 

UU, 

U2, 

$CD97 

FFEE 

00 

05 

l)C, 

U3, 

$0500 

FFFO 

03 

05 

UD, 

U4, 

$0503 

FFF2 

06 

05 

UE, 

U5, 

$0506 

FFF4 

09 

05 

UF, 

U6, 

$0509 

FFF6 

OC 

05 

UG, 

U7, 

S050C 

FFF8 

OF 

05 

UH, 

U8, 

$050F 

FFFA 

01 

FF 

UI, 

U9, 

SFFOl 


(NMI vector not used) 


FFFC OA EA 
EFFE 67 FE 


** hardware vectors 

$EAA0 RESET and UJ (U 
SFE67 IRQ vector 
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APPENDICE 


INPUT DI STRINGHE DI LUNGHEZZA PRESTABILITA DA DISCO 


La lettura di dati dal disco con un comando INPUT# ha il 
grande svantaggio che solo gruppi di dati inferiori a 
86 caratteri possono essere letti e ciò' perche il 
buffer di input del computer e' di dimensioni limitate. 
In oltre non tutti i caratteri possono essere letti con 
un comando di INPUT. Infatti se in un record ci sono 
caratteri virgola il basic li interpreta come cartteri 
di separazione e quindi la parte rimanente dei dati in 
ingresso viene assegnata alla successiva variabile. 

L' alternativa sarebbe quella di utilizzare un comando 
di GET// ripetuto per N caratteri ma il risultato 
sarebbe un esecuzione troppo lenta. 

Per evitare questi problemi si può' usare una piccola 
routine in linguaggio macchina. 

Cambieremo il comando INPUT# in maniera tale che si 
possa dichiarare il numero di caratteri che devono 
essere letti e per distinguerlo dal normale comando 
INPUT# lo chiameremo INPUT*. 

La sintassi del comando sara' la seguente: 

INPUT* LFN,LEN,VAR 

In cui LFN sara' il numero di file logico 
preventivamente aperto, LEN il numero di caratteri che 
devono essere letti e VAR la variabile stringa entro cui 
i caratteri verranno letti. 

Un programma potrebbe essere il seguente: 

100 OPEN 2,8,2,"FILE" 

110 INPUT*2,100,A$ 
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Questa routine legge una stringa di 100 caratteri da un 
file aperto e la mette in A$. 

Di" seguito riportiamo un listato in assembler che 
risiede nel buffer di cassetta. 


63000 REM****************** 

63010 REM INPUT 

63020 REM****'**’***********'**’* 

63200 F0RI=628T0922 
63205 READX:P0KEI,X:S=S+X:NEXT 
63210 DATA169,71,160,3,141,8,3,140,9,3,96,32 
63215 DATA115,0,201,133,240,6,32,121,0,76,231,167 
63220 DATA32,115,0,201,172,240,6,32,191,171,76,174 
63225 DATA167,32,155,183,32,30,225,32,253,174,32,158 
63230 DATA183,138,72,32,253,174,32,139,176,133,73.132 
63235 DATA74,32,163,182,104,32,117,180,160,2,185,97 
63240 DATAO,145,73,136,16,248,200,32,18,225.145,98 
63245 DATA200,196,97,208,246,32,204,255,76,174,167 
63247 IFS<>11096THENPRINT"ERR0RE": END 
63250 SYS628 
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0 

033C 

A947 

LDA 

//$47 

1 

033E 

A003 

LDY 

#$03 

2 

0340 

8D0803 

STA 

$0306 

3 

0343 

8C0903 

STY 

$0309 

4 

0346 

60 

RTS 


5 

0347 

207300 

OSR 

$0073 

6 

034A 

C985 

CMP 

#$85 

7 

034C 

F006 

BEQ 

$0354 

8 

034E 

207900 

OSR 

$0079 

9 

0351 

4CE7A7 

OMP 

$A7E7 

10 

0354 

207300 

OSR 

$0073 

11 

0357 

C9AC 

CMP 

#$AC 

12 

0359 

F006 

BEQ 

$0361 

13 

035B 

20BFAB 

OSR 

$ABBF 

14 

035E 

4CAEA7 

OMP 

$A7AE 

15 

0361 

209BB7 

OSR 

$B79B 

16 

0364 

201EE1 

3SR 

$E11E 

17 

0367 

20FDAE 

JSR 

$AEFD 

18 

036A 

209EB7 

OSR 

$B79E 

19 

036D 

8A 

TXA 


20 

036E 

48 

PHA 


21 

036F 

20FDAE 

OSR 

$AEFD 

22 

0372 

208BBO 

OSR 

$B08B 

23 

0375 

8549 

STA 

$49 

24 

0377 

844A 

STY 

$4A 

25 

0379 

20A3B6 

3SR 

$B6A3 

26 

037C 

68 

PLA 


27 

037D 

2075B4 

3SR 

$B475 

28 

0380 

A002 

LDY 

#$02 

29 

0382 

B96100 

LDA 

$0061, Y 

30 

0385 

9149 

STA 

($49),Y 

31 

0387 

88 

DEY 


32 

0388 

10F8 

BPL 

$0382 

33 

038A 

C8 

INY 


34 

038B 

2012E1 

OSR 

$E112 

35 

038E 

9162 

STA 

($62),Y 

36 

0390 

C8 

INY 


37 

0391 

C461 

CPY 

$61 

38 

0393 

D0F6 

BNE 

$038B 

39 

0395 

20CCFF 

OSR 

$FFCC 

40 

0398 

4CAEA7 

OMP 

$A7AE 
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SPOOLING STAMPA DIRETTA DA DISCO 


Se avete una stampante connessa al vostro computer oltre 
alla unita' a dischi potete usare una caratteristica del 
bus seriale. 

E' possibile inviare FILES direttamente da disco alla 
stampante senza la necessita' che essi vengano 
trasferiti byte per byte dal disco al computer e da qui 
alla stampante. 

Per esempio se avete un testo memorizzato come file 
sequenziale e lo volete stampare potete utilizzare il 
seguente programma: 

100 OPEN 1,4 

no OPEN 2,8,2,"0:TEST" 

120 GET#2,A$:IF ST= 64 THEN140 
130 PR1NT#1,A$:G0T0120 
140 CLOSEl ; CL0SE2 
150 END 

I caratteri sono inviati dal disco alla stampante fino a 
quando non venga trovata la fine del File. Questa 
sarebbe la normale procedura in basic. Con la nostra 
routine invece sara' sufficiente digitare: 

SYS 828,"NOME FILE" 

II grande vantaggio sta nel fatto di non impegnare 
l’unita' centrale durante la* fase di stampa. 

NOTA 

Con stampanti non COMMODORE il programma può' dare 
degli inconvenienti. 
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0 PRINT" C CLR HOME 3 " 

1 PRINT " *•*■*******■>!•*•**•************■*■•*<■•*•**** 

2 PRINT" SPOOLING * MPS 801 

3 PRINT" *************'*>"*-**************** 

4 PRÌNT" funziona solo con MPS 801 

5 PRINT" ******■*■**■*■**■'*•**•'<•*****••*■■»!•*•*■****** 

6 PRINT" PER IL FUNZIONAMENTO 

7 PRINT" 0PEN4,4:SYS828,"CHR$(34)"N0ME DEL FILE"CHR$(34) 

8 PRINT" PER CHIUDERE IL FILE AD 

9 PRINT" OPERAZIONE ESEGUITA 

10 PRINT" SYS 828 
12 F0RI=828T0901 

20 READX:POKEI,X:S=S+X;NEXT 

100 DATA 32,121, 0,240, 51, 32,231,255, 32, 84,226 

110 DATA166,183,240, 56,169, 2.162, 8,160, 2, 32 

120 DATA186,255, 32,192,255,169, 4, 32,177,255, 32 

130 DATA190,237,162, 2, 32,198,255, 32,190,237, 32 

140 DATA133,238, 32,151,238,169, 0,133,153,133.152 

150 DATA 96,169, 1,133,152, 32,174,255, 32,171,255 

160 DATA169, 2, 76,195,255, 76, 8,175 

200 IFS<>9598THENPRINT"ERR0RE IN DATA !!!":END 
210 PRINT"OK" 
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DISK MONITOR 


Vi presentiamo qui una delle migliori utility per il 
drive 1541, che vi consentirà' di visualizzare, caricare 
modificare e salvare un qualsiasi blocco su dischetto. 
Per ovvie ragioni di velocita' il programma e' stato 
scritto interamente in linguaggio macchina. 

E' importante notare che i parametri utilizzati nei 
comandi DEVONO essere dati in ESADECIMALE. 

I comadi implementati sono i seguenti: 


>R TT SS 
>W TT SS 
>H IN FN 
>: 

> @ 

>@(comandi ) 
>X 


; Lettura di un blocco 
: Scrittura di un blocco 
: Visualizzazione di un blocco da IN a FN 
: Edit di un blocco 
: Visualizzazione messaggio di errore 
: Invio di comandi al disco 
: Ritorno al BASIC 


TT = Traccia in ESADECIMALE 
SS = Settore in ESADECIMALE 


NOTA 
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Se dopo essere tornati in ambito BASIC con il comando X 
desiderate utilizzare ancora il DISK MONITOR non e' 
necessario che questo venga ricaricato. Sara' 
sufficiente digitare SYS 49152. 


1 REM’'*** EVM COMPUTERS*****’^’* 

2 REM**** DISK MONITOR ******** 

10 F0R1=49152T0496Ò7 

20 READX:POKEI,X:S=S+X:NEXT 

30 DATA1Ó2, 0,169,133,194, 32,210,255,232,224, 16,206 
40- DATA245,1Ó2, 13,169 , 62 , 32,235,192,169, 0.141, 1 

50 DATA 2, 32, 51,193,201, 62,240,249,201, 32,240,245 
60 DATA162, 5,221,106,192,206, 12,142, 0, 2,169,112 

70 DATA192, 72,169,118,192, 72, 96,202, 16,236, 76, 13 
60 DATA192,133,151, 32, 98,192,185,224,194, 32,220,192 
90 DATA200,205, 3,236, 1, 2,196,151,206,237, 96, 32 

100 DATA254,192,144, 3,153,224,194,200,196,151, 96, 32 

ilo DATA 96,192,169, 32, 44,169, 13, 76,210,255, 56, 67 
120 DATA 62, 77, 64, 88,192,193,193,192,193,227,192,144 
130 DATA144,123, 62,122,160, 0,140, 3, 2,136,140, 4 

140 DATA 2, 32,207,255,201, 13,240, 23, 32,254,192,144 
150 DATA 16,141, 3, 2, 32,207,255,201, 13,240, 6, 32 

160 DATA254,192,144, 3-,141, 4, 2,172, 3, 2, 32,196 

170 DATA194, 32,214,194,152, 32,220,192, 32, 96,192,169 
160 DATA 6, 32, 61,192, 32,151,194, 76,166,192, 76, 13 
190 DATA192, 32,254,192,144,246,166,169, 6,133,151, 32 

200 DATA 51,193 , 32, 51,193, 32, 8.3,192,206,246 , 32,151 
210 0ATA194 , 76, .13,192 , 72 , 74, 74, 74, 74, 32,244,192 
220 DATA170,104, 41, 15-, 32,244,192 , 72,136 , 32,210,255 
230 DATA104, 76,210,255, 24,105,246,144, 2,105, 6,105 

240 DATA 56, 96,169, 0,141, 2, 2, 32, 51,193,201, 32 

250 DATA206, 9, 32, 51,193,201, 32,206, 15, 24, 96, 32 

260 DATA 40,193, 10, 10, 10, 10,141, 2, 2, 32, 51,193 

270 DATA 32, 40,193, 13, 2, 2, 56, 96,201, 56, 6, 41 

260 DATA 15, 40,144, 2,105, 6, 96, 32,207,255,201, 13 

290 DATA206,248,104,104, 76, 13,192, 32,207,255,201, 13 
300 DATA206, 39,169, 0,133,144, 32,101,192,169, 8,133 

310 DATA166, 32,160,255,169,111,133,165, 32,150,255, 32 
320 DATA165,255 , 36,144,112 , 5 , 32,210,255,206,2.44, 32 

330 DATA171,255, 76, 13,192,201, 36,240, 29, 72,169, 8 
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340 DATA133,lbó, 32,177,235,169,111,133,165, 32,147,255 
350 DATA104, 32,166,255, 32,207,255,201, 13,206,246, 32 
360 DATA174,255, 76, 13,192, 32, 51,193, 32,254,192,144 
370 DATA245,141, 39,194, 32, 51,193,32 ,254,192,144,234 
360 DATA141, 42,194, 32, 73,194,173, 0, 2,201, 1,240 

390 DATA 30,169, 49, 32,237,193,162, 13, 32,196,255,162 
400 DATA 0, 32,207,255,157,224,194,232,208,247, 32,204 
410 DATA255, 32,110,194, 76, 13,192, 32, 44,194,162, 13 
420 DATA 32,201,255,162, 0,159,224,194, 32,210,255,232 

430 DATA206,247, 32,204,255,169, 50, 32,237,193, 76,201 
440 DATA193,141, 32,194,162, 15,173, 39,194, 32,120,194 
450 DATA142, 39,194,141, 40,194,173, 42,194, 32,120,194 
460 DATA142, 42,194,141, 43,194,162, 15, 32,201,255,162 
470 DATA 0,169, 31,194, 32,210,255,232,224, 13,206,245 
480 DATA 76,204,255, 85, 49, 58, 49, 51, 32, 48, 32, 0 
490 DATA 0, 32, 0, 0,162, 15, 32,201,255,162, 0,169 
500 DATA 65,194, 32,210,255,232,224, 8,208,245, 76,204 

510 DATA255, 66, 45, 60, 32, 49, 51, 32, 46,169, 15,166 

520 DATA162, 6, 32,186,255,169, 0, 32,169,255, 32,192 

530 DATA255,169, 13,166,162, 6, 32,166,255,169, 1,162 

540 DATA109,160,194, 32,169,255, 76,192,255, 35,169,13 
550 DATA 32,195,255,169, 15, 76,195,255,162, 46, 56,233 
560 DATA 10,144, 3,232,176,249,105, 56, 96, 13, 66, 73 

570 DATA 83, 75, 45-, 77, 79, 76, 73, 64, 79, 62, 32, 66 

560 DATA 49, 46, 46,152, 56,233, 8,166, 32, 96,192,169 

590 DATA 18, 32,210,255,162, 8,165,224,194, 41,127,201 

600 DATA 32,176, 4,169, 46,206, 3,185,224,194, 32,210 

610 DATA255,169, 0,133,212,200,202,208,229,169,146, 76 

620 DATA210,255,173, 1, 2,206, 6,204, 4, 2,176, 1 

630 DATA96 ,104,104,76 ,13 ,192, 32,101,192,169, 58,162 
640 DATA62 ,76 ,235,192 
650 IFS <> 90444THEI'IPRINT"ERR0RE" : END 
660 SYS49152 
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0 

cuoo 

A200 

LUX 

#$00 

1 

C002 

BDb5C2 

LOA 

SC2b5,X 

2 

C005 

2002FF 

JSH 

SFr02 

.) 

COOb 

r.8 

lux 


4 

cooy 

E012 

CPX 

//S12 

5 

COOB 

D0F5 

BNE 

SC002 

if 

COOD 

A20D 

LOX 

li $00 

7 

coor 

A93C 

LOA 

//$3E 

b 

con 

20lUCO 

JSH 

SCOEB 

y 

coi 4 

A900 

LOA 

//SOO 

10 

C016 

800102 

STA 

$0201 

li 

COI 9 

2033C1 

JSH 

SCI 3 3 

1? 

COIC 

cy3E 

CttP 

/;$3E 

13 

COIE 

rOF9 

BEO 

SCOI 9 

14 

C020 

C920 

CUP 

(/S20 

Ib 

C022 

F0r5 

BLQ 

SCOI 9 

16 

C024 

A205 

LOX 

#$05 

17 

C02Ó 

006AC0 

CMP 

$C06A,X 

Ib 

C029 

DOCC 

ONE 

SC037 

ly 

C02B 

8E0002 

STX 

$0200 

20 

C02£: 

U070CO 

LOA 

SCOTO, X 

21 

C031 

48 

PHA 


i:» 

C032 

B076C0 

LOA 

$CÙ76,X 

23 

C035 

48 

PHA 


24 

C036 

60 

HTS 


2S 

C037 

CA 

DEX 


26 

C036 

lOEC 

HPL 

$C026 

27 

C03A 

4CODCO 

JIIP 

SCODO 

2b 

C03D 

6597 

STA 

$97 

2y 

C03F 

2062CO 

JSH 

SC062 

30 

C042 

U9E0C2 

LOA 

$C2E0,Y 

31 

C045 

200CCO 

JSH 

SCODC 

32 

C04& 

CS 

INY 


33 

C049 

0003 

BHE 

SC()4E 

34 

C04B 

EE0102 

INC 

$0201 

35 

C04E 

C697 

DEC 

$97 

36 

C050 

OOED 

BNE 

$C03F 

37 

C052 

60 

HTS 


38 

C053 

20FEC0 

JSH 

SCOFE 

3y 

C056 

9003 

BCC 

SC05B 

40 

C056 

9yE0C2 

STA 

$C2E0,Y 

41 

C05B 

C6 

INY 


42 

C05C 

C697 

DEC 

$97 

43 

C05E 

60 

HTS 


44 

CObF 

2062C0 

JSII 

$C062 

45 

C062 

A920 

LDA 

#$20 

46 

C0Ó4 

2CA90D 

BIT 

$00A9 

47 

C067 

4CD2FF 

JHP 

$FFD2 

48 

C06A 

3A 

BYT 

$3A 

4y 

C060 

57 

BYT 

$57 

50 

CÙ6C 

52 

BYT 

$52 

51 

C06D 

404056 

EOR 

$5640 

52 

C070 

COCl 

CPY 

.#$C1 

53 

C072 

CICO 

CMP 

($CO,X) 

54 

C074 

C1C3 

CMP 

($E3,X) 

55 

C076 

C090 

CPY 

#$90 

56 

C076 

907B 

BCC 

$C0F5 
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S7 

C07A 

3t7AAO 

SS 

C070 

00 

S9 

C07E 

6C0302 

óO 

COSI 

8S 

61 

C0S2 

6C0402 

62 

C0S5 

20CFFF 

63 

C0S8 

C90D 

64 

COSA 

F017 

ÓS 

cose 

20FEC0 

66 

COSF 

9012 

67 

C091 

SDO302 

6b 

C094 

20CFFr 

69 

C097 

C90D 

70 

C099 

FOOb 

71 

C09B 

20FECO 

72 

C09E 

9003 

73 

COAO 

SD0402 

74 

C0A3 

AC0302 

75 

C0A6 

20C6C2 

76 

C0A9 

20D6C2 

77 

COAC 

96 

76 

CO.AD 

20DCC0 

79 

COBO 

2062C0 

80 

C0B3 

A906 

61 

C0B5 

2030C0 

62 

COBS 

2097C2 

63 

COBB 

4CAÓC0 

84 

CODE 

4CODCO 

85 

COCl 

20FEC0 

66 

C0C4 

9or.s 

67 

C0C6 

AS 

66 

C0C7 

A908 

69 

C0C9 

6597 

90 

coai 

2033C1 

91 

cocc 

2033C1 

9? 

CODI 

205 ICO 

93 

C0B4 

DOT 8 

94 

C0D6 

2097C2 

95 

C0D9 

4C00C0 

96 

COOC 

48 

97 

GODO 

4A 

98 

CODE 

4A 

99 

COOF 

4A 

100 

COEO 

4A 

101 

COEl 

20F4C0 

102 

C0E4 

AA 

103 

C0E5 

66 

104 

C0E6 

290F 

105 

C0E8 

20F4C0 

106 

COEB 

48 

107 

COEC 

8A 

lOS 

COED 

20D2FF 

109 

COFO 

68 

110 

COFl 

4CD2FF 

111 

C0F4 

16 

112 

C0F5 

69F6 

113 

C0F7 

9002 


HUL $A07A,X 
BKK 

STV S0203 
DEV 

STV S020A 
OSR SFFCF 
CHP tfSOO 
liEO SCOA3 
OSR SCOFE 
BCC $COA3 
STA $0203 
JSH SFFCF 
CHP tfSOD 
BEO $C0A3 
OS» SCOFE 
BCC $C0A3 
STA S020A 
LDY $0203 
3SR SC2C6 
OSH SC20Ó 
TYA 

OSR SCODC 
3SH SC0Ó2 
EDA tfSOS 
JSR SCO 30 
osa SC297 
3HP SC0A6 
3HP SCOOD 
3SR SCOFE 
BCC scoui: 

TAY 

EOA USOs 
STA $97 
3SR sci 33 
3SR SCI 33 
OS» scoi 3 
BUE SCOCL' 

3SH SC297 
3HP SCOOD 
PHA 
ESR A 
ESR A 
ESR A 
ESR A 
3SR SC0F4 
TAX 
PEA 

AMD //SOF 
OSR SC0F4 
PHA 
TXA 

3SR SFFD2 
PEA 

3tlP SFFD2 
CEC 

ADC tfSFó 
BCC SC0F6 
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IK 

C0F9 

6906 

AOC 

Il $06 

Ili 

COFB 

693A 

AOC 

#$3A 

Ilo 

COFD 

60 

HTS 


117 

COFE 

A900 

EDA 

ll$00 

Ila 

ClOO 

600202 

SFA 

$0202 

119 

C103 

2033C1 

JSR 

SCI 3 3 

120 

C106 

C920 

CMP 

tfS20 

121 

Cioè 

0009 

BUE 

SCI 13 

122 

CIOA 

2033C1 

JSIl 

SC133 

123 

CIOD 

C920 

CMP 

//S20 

12i, 

CIOF 

OOOF 

BNE 

SC120 

12i 

CHI 

16 

CLC 


12Ó 

C112 

60 

HTS 


127 

C113 

2026C1 

JSR 

SC126 

12à 

C116 

OA 

ASL 

A 

129 

C117 

OA 

ASL 

A 

130 

C116 

OA 

ASL 

A 

131 

C119 

OA 

ASL 

A 

132 

CllA 

600202 

STA 

S0202 

133 

CHI) 

2033C1 

JSR 

SC133 

134 

CI 20 

2026C1 

JSR 

SC128 

139 

C123 

000202 

ORA 

S0202 

136 

C126 

36 

SEC 


137 

C127 

60 

RTS 


136 

C12b 

C93A 

CMP 

//S3A 

139 

C12A 

06 

PHP 


140 

C12B 

290F 

ANO 

//SOF 

141 

CI 20 

26 

PLP 


142 

CHE 

9002 

BCC 

SCI 32 

143 

CI 30 

6906 

AOC 

//S06 

144 

CI 32 

60 

RTS 


145 

C133 

20CFFF 

JSR 

SFFCF 

146 

CI 36 

C900 

CHP 

ll$OD 

147 

C138 

00F5 

BNE 

SCI 32 

145 

C13A 

66 

PLA 


149 

C13B 

66 

PLA 


150 

C13C 

4C0DC0 

JHP 

SCOOO 

151 

C13F 

20CFFF 

JSR 

SFFCF 

152 

CI 42 

C900 

CMP 

#SCO 

153 

C144 

0027 

BNE 

SCI 60 

154 

CI 46 

A900 

LOA 

IISOO 

155 

C146 

6590 

STA 

S90 

156 

C14A 

2065C0 

JSR 

SC065 

157 

CI 40 

A906 

LDA 

ms 

156 

C14F 

65BA 

STA 

SBA 

159 

C151 

20B4FF 

JSR 

SFFB4 

160 

CI 54 

A96F 

LOA 

«SÓF 

161 

C156 

85B9 

STA 

SB9 

162 

CI 56 

2096FF 

JSR 

SFF96 

163 

C15B 

20A5FF 

JSR 

SFFA5 

164 

C15E 

2490 

BIT 

S90 

165 

C160 

7005 

nvs 

SCI 67 

166 

CI 62 

200?Fr 

JSR 

SUO? 

167 

C165 

00( 4 

ONE 

SCI 511 

166 

CI 67 

20ABFF 

JSR 

SFFAB 

169 

C16A 

4COOCO 

JHP 

SCOOO 

170 

CI 60 

C924 

CHP 

tfS24 
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171 

C16F 

FOID 

BEO 

SCISE 

172 

CI 71 

46 

PHA 


173 

C172 

A906 

LDA 

(?S06 

174 

CI 74 

65BA 

STA 

$BA 

175 

C176 

20B1FF 

asH 

SFFBl 

176 

CI 79 

A96F 

LUA 

//S6F 

177 

C17B 

65B9 

STA 

$B9 

176 

C170 

2093FF 

3SR 

$FF93 

179 

C160 

68 

PLA 


160 

C181 

20A6FF 

JSR 

SFFAb 

I6l 

C154 

20CFFF 

3SR 

SFFCF 

162 

CI 67 

C90D 

CHP 

l'SOD 

163 

C169 

D0F6 

BUE 

SC161 

164 

C16B 

20AEFF 

3SR 

SFFAE 

165 

CI6E 

4C0DC0 

3MP 

SCOOD 

166 

CI 91 

2033C1 

3SH 

SCI 33 

167 

C194 

20FEC0 

3SH 

SCOFE 

168 

CI 97 

90F5 

BCC 

SC18E 

169 

C199 

8D27C2 

STA 

$C227 

190 

C19C 

2033C1 

3SR 

$C133 

191 

C19F 

20FEC0 

3SR 

SCOFE 

192 

C1A2 

90EA 

BCC 

SCISE 

193 

C1A4 

6D2AC2 

STA 

$C22A 

194 

C1A7 

2049C2 

OSR 

SC249 

195 

CIAA 

AD0002 

LDA 

S0200 

196 

CIAD 

C901 

CMP 

«SOI 

197 

CIAF 

FOIE 

BEO 

SCICF 

198 

CIBI 

A931 

LDA 

iS31 

199 

C1B3 

20EDC1 

3SR 

SCIED 

200 

C1B6 

A20D 

LDX 

tfSOD 

201 

C1B6 

20C6FF 

OSR 

SFFC6 

202 

CIBB 

A200 

LDX 

«SOO 

203 

CIBO 

20CFFF 

3SR 

SFFCF 

204 

CICO 

9DE0C2 

STA 

SC2E0,X 

205 

C1C3 

E6 

INX 


206 

C1C4 

D0F7 

BNE 

SCIBO 

207 

C1C6 

20CCFF 

OSR 

SFFCC 

208 

C1C9 

206EC2 

3SR 

$C26E 

209 

ClCC 

4C00C0 

3MP 

SCODO 

210 

■CICF 

202CC2 

OSR 

SC22C 

211 

C1D2 

A20U 

LDX 

«SOD 

212 

C1D4 

20C9FF 

OSR 

SFFC9 

213 

C1D7 

A200 

LDX 

«SOO 

214 

C1D9 

BDE0C2 

LDA 

SC2E0,X 

215 

CIDC 

2002FF 

OSR 

SFFD2 

216 

CIOF 

E8 

inx 


217 

CIEO 

D0F7 

BtlE 

SC1D9 

216 

C1E2 

20CCFF 

OSR 

SFFCC 

219 

C1E5 

A932 

LDA 

#S32 

220 

C1E7 

20EDC1 

OSR 

SCICO 

221 

ClEA 

4CC9C1 

3HP 

SC1C9 

222 

CIEO 

8D20C2 

STA 

SC220 

223 

CIFO 

A20F 

LDX 

«SOF 

224 

C1F2 

AD27C2 

LDA 

SC227 

225 

C1F5 

2078C2 

OSR 

SC278 

226 

C1F8 

8E27C2 

STX 

SC227 

227 

CIFB 

8028C2 

STA 

SC228 
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22b 

CIFE 

AD2AC2 

22y 

C201 

207SC2 

230 

C204 

SE2AC2 

231 

C207 

6D2HC2 

232 

C20A 

A20F 

233 

C20C 

20C9FF 

234 

C20F 

A200 

235 

C211 

B01FC2 

23Ó 

C214 

20D2FF 

237 

C217 

Eb 

236 

C218 

EOOD 

239 

C21A 

D0F5 

240 

C21C 

4CCCFF 

241 

C21F 

5531 

242 

C221 

3A 

243 

C222 

3133 

244 

C224 

203020 

245 

C227 

00 

246 

C226 

00 

247 

C229 

200000 

246 

C22C 

A20F 

249 

C22E 

20C9FF 

250 

C231 

A200 

251 

C233 

BD41C2 

252 

C236 

20D2FF 

253 

C239 

Eb 

254 

C23A 

E 006 

255 

C23C 

D0F5 

256 

C23E 

4CCCFF 

257 

C241 

42 

256 

C242 

205020 

259 

C245 

3133 

260 

C247 

2030A9 

261 

C24A 

OF 

262 

C24D 

A6 

263 

C24C 

A206 

264 

C24E 

20BAFF 

265 

C251 

A900 

266 

C253 

20B0FF 

267 

C256 

20C0FF 

266 

C259 

A90D 

269 

C25B 

AS 

270 

C25C 

A208 

271 

C25E 

20BAFF 

272 

C261 

A901 

273 

C263 

A26D 

274 

C265 

A0C2 

275 

C267 

20BDFF 

276 

C26A 

4CC0FF 

277 

C26D 

23 

276 

C26E 

A90D 

279 

C270 

20C3FF 

280 

C273 

A90F 

261 

C275 

4CC3FF 

262 

C278 

A230 

263 

C27A 

36 

264 

C27B 

E90A 


LDA $C22A 
3SR SC27b 
STX $C22A 
STA SC22B 
LDX //SOK 
3SR srrcR 
LDX II $00 
LDA- SC21F,X 
3SR SFF02 
IHX 

CPX <<SOD 
BNE SC211 
3HP SFfCC 
EOR $J1,X 
BYT S3A 
AND ($33),Y 
3SR S2030 
BRK 
BKK 

3SR $0000 
LDX 7/$0F 
3SR SFFC? 

LDX //SOO 
LDA $0241,X 
3$R $FFD2 
INX 

CPX ll$0$ 

CHE $C233 
3MP SFFCC 
BYT $42 
AND $2050 
AND ($33),Y 
3$R $AV30 

BYT SOF 
TAY 

LDX l/SOb 
3$R $FFBA 
LDA «SOO 
3$R SFFUD 
3SH SFfCO 
LDA «SOD 
TAY 

LDX «SOS 
3$R SFFDA 
LDA «SOI 
LDX «S6D 
LDY «SC2 
3$R SFFBD 
3HI» SFFCO 
BYT $23 
LDA «SOD 
3$R SFFC3 
LDA «SOF 
3IIP SFFC3 
LDX «$30 
SEC 

SBC «SOA 
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C27D 

9003 

BCC 

SC262 

2bÓ 

C27F 

E6 

INX 


267 

C2S0 

B0F9 

BCS 

SC27B 

266 

C262 

693A 

AOC 

«S3A 

269 

C284 

60 

HTS 


290 

C285 

0D4449 

OHA 

$4944 

291 

C268 

53 

BYT 

S53 

292 

C269 

4B 

BYT 

S4B 

293 

C28A 

2D4D4F 

AMD 

S4F4D 

294 

C26D. 

4E4954 

LSK 

$5449 

295 

C290 

4F 

BYT 

S4F 

296 

C291 

52 

bU 

$52 

297 

C292 

205631 

JSR 

$3156 

293 

C295 

:E3098 

ROL 

$9630 

299 

C29b 

36 

SEC 


300 

C299 

E908 

SBC 

lf$06 

301 

C29B 

A8 

TAY 


302 

C29C 

20Ó2C0 

3SR 

$C062 

303 

C29f 

A912 

EOA 

//$12 

304 

C2A1 

20D2FF 

3SR 

$FF02 

305 

C2A4 

A206 

LUX 

#$06 

306 

C2A6 

B9EOC2 

EOA 

$C2E0,Y 

307 

C2A9 

297F 

ARO 

//$7F 

306 

C2/\0 

C920 

CMP 

#$20 

309 

C2A0 

B004 

BCS 

$C2B3 

310 

C2AF 

. A92E 

EOA 

//$2E 

311 

C2B1 

0003 

BNE 

$C206 

312 

C2U3 

B9E0C2 

EOA 

$C2E0,Y 

313 

C2B6 

20D2FF 

3SR 

$FF02 

314 

C2U9 

A900 

EOA 

#$00 

315 

C2BB 

6504 

STA 

$04 

316 

C2BD 

C8 

IHY 


317 

C2BE 

CA 

DEX 


316 

C2BF 

00E5 

BNE 

$C2A6 

319 

C2C1 

A992 

EOA 

#$92 

320 

C2C3 

4CD2FF 

3MP 

$FFD2 

321 

C2C6 

A00102 

EOA 

$0201 

322 

C2C9 

0006 

BNE 

$C201 

323 

C2CB 

CC0402 

CPY 

$0204 

324 

C2CE 

BOOl 

BCS 

$C2D1 

325 

C2Ó0 

60 

RTS 


326 

C2D1 

66 

PEA 


327 

C2D2 

66 

PEA 


328 

C2D3 

4COOCO 

3HP 

$C000 

329 

C206 

2065C0 

3SR 

$C065 

330 

C2D9 

A93A 

EOA 

#$3A 

331 

C20B 

A23E 

EOX 

#$3E 

332 

C2DD 

4CE0C0 

3MP 

$COEB 
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I MESSAGGI DI ERRORE DISCO 


Riportiamo qui la serie di messaggi di errore disco, le 
possibili cause e gli eventuali rimedi. 

Per un' accurato esame degli errori e' necessario 
consultare le tecniche di registrazione e rilettura dati 
esposte nel citato volume :LE PERIFERICHE COMMODORE. 
Ricordiamo che e' bene cercare di gestire SEMPRE anche 
da programma il controllo degli errori. 


SOMMARIO DEI MESSAGGI DI ERRORE DEL DOS 


0 OK, nessun errore 

1 Risposta per il file cancellato.Non e' un errore 
2-19Non usati 

20 Intestazione non registrata 

21 Carattere di sincronizzazione non registrato. 

22 Blocco di dati assente 

23 Errore di checksum in un blocco di dati 

24 Errore di decodyfica di byte 

25 Errore di verifica in scrittura 

26 Si e' cercato di scrivere su un disco protetto. 

27 Errore di checksum nella testata 

28 Blocco dati troppo lungo 

29 Identificatore del disco errato 

30 Errore di sintassi generico 

31 Comando errato 

32 Linea lunga 

33 Nome del file illegale 

34 File non assegnato 

39 File di comando non trovato 
50 Record inesistente 
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51 Overflow sul record 

52 File troppo grande 

60 File aperto per scrittura 

61 File non aperto 

62 File inesistente 

63 File esistente 

64 File inesatto 

65 Blocco non disponibile 

66 Traccia o settore illegali 

67 Come sopra ma di sistema 

70 Nessun canale disponibile 

71 Errore nella Directory 

72 Disco 0 directory piene 

73 Messagio relativo all' alimentazione 

74 Unita' non pronta 


DESCRIZIONE DEI MESSAGGI DI ERRORE DOS 


I messaggi di errore con numero inferiore a 20 
dovrebbero essere ignorati con 1' eccezione del 
messaggio 01 che fornisce informazioni sul numero di 
files cancellati con il comando SCRATCH. 


20 READ ERROR 

Non e' stata trovata 1' intestazione del blocco.Il 
controller del disco non e' in grado di individuare 1' 
intestazione del richiesto blocco di dati. 

Questo errore può' essere causato da un numero di 
settore illegale oppure 1' intestazione e' andata 
distrutta. 
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21 READ ERROR 

Mancanza di carattere di sincronismo. 

Il controller del disco non riesce ad individuare il 
carattere di sincronismo nella traccia desiderata. 

Può' essere dovuto ad un disallineamento della testina, 
oppure non e' stato inserito il dischetto o non e' stato 
formattato o e' comunque sciupato. 

Spesso 1' errore indica anche un guasto Hardware dell' 
unita' a disco. 


22 READ ERROR 
Blocco di dati assente 

E' stato richiesto al controller di leggere un blocco di 
dati che non e' stato in precedepza scritto in modo 
appropriato. 

Questo errore avviene in corrispondenza di comandi BLOCK 
ed indica una richiesta illegale di traccia o settore. 


23 READ ERROR 

Errore di CHECKSUH in un blocco di dati. Indica la 
presenza di un errore in uno o piu' Bytes del blocco di 
dati. 

Il blocco e' stato letto nella memoria del Sistema 
Operativo del disco (DOS), ma al controllo la somma di 
prova e' risultata errata. 

Questo errore può' esere dovuto anche ad una . messa a 
terra errata dell' unita'. 
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24 READ ERROR 

Errore di decodifica di byte. 

I dati 0 1' intestazione sono stati letti nella memoria 
DOS, ma e' stato trovato un errore HARDWARE a causa di 
un errata configurazione di bit nel byte di dati. 

Anche questo errore può' derivare, come il precedente da 
un errata messa a terra. 


25 WRITE ERROR 

Errore di verifica di scrittura. 

Questo messaggio viene generato se il controller 
individua una mancata corrispondenza fra quanto scritto 
e quanto contenuto nella memoria del DOS. 


26 WRITE PROTECT ON 
Scrittura su disco protetto. 

Si ottiene questo messaggio tentando di scrivere su un 
dischetto con la protezione di scrittura attivata. 

Cioè' quando la finestrella sulla destra del dischetto 
e' coperta. 

27 READ ERROR 

Errore di controllo somma (CHEKSUH) nella testata. 

Il controller ha trovato un errore nella testata del 
blocco di dati richiesto. 

Il blocco non e' stato correttamente letto nella memoria 
DOS. 

Anche questo tipo di errore può' indicare problemi 
HARDWARE derivanti da una errata messa a terra. 
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28 WRITE ERROR 

Blocco di dati troppo lungo. 

Il controller, dopo aver scritto un blocco di dati, 
cerca di individuare il carattere di sincronismo della 
intestazione del blocco successivo. 

Se tale carattere non viene individuato entro un certo 
periodo di tempo e' generato il messaggio di errore. 

L' errore può' essere causato da una cattiva 
formattazione del disco, da un guizzo di tensione 
durante una fase di registrazione o da altro guasto 
HARDWARE. 

I dati si estendono al blocco successivo che pertanto e' 
privo del carattere di sincronismo. 


29 DISK IS MISMATCH 

Errore frequente quando si tenti di usare un dischetto 
che non e' stato inizializzato. 

Questo messaggio appare anche quando il dischetto ha una 
testata errata. 


30 SYNTAX ERROR 
Errore di tipo generale. 

Il DOS non riesce ad interpretare 1' ordine inviato sul 
canale di comando. 

Generalmente questo errore e' provocato da un numero 
illegale di file,da nomi o configurazioni non ammessi. 

Un esempio può' essere nell' usare due nomi di files 
contemporaneamente con il comando COPY. 
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31 SYNTAX ERROR 

Comando errato 

Il DOS non riconosce il comando. 

Si ricordi che il comando deve iniziare nella prima 
posizione della linea. 


32 SYNTAX ERROR 
Linea troppo lunga. 

Il comando inviato supera la lunghezza massima di 58 
caratteri. 


33 SYNTAX ERROR 

Nome di file non legale. 

In un comando di LOAD, SAVE o VERIFY sono stati usati 
dei parametri illegali. 


34 SYNTAX ERROR 
File non assegnato. 

E' stato omesso il nome del file oppure il DOS non lo 
riconosce. 

Spesso nel comando mancano gli apici o i due punti. 


39 SYNTAX ERROR 

Comando non valido. 

Questo errore può' verificarsi se 1' ordine inviato al 
canale di comando ( indirizzo secondario 15) non e' 
interpretabile dal DOS. 
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50 RECORD NOT PRESEMI 

Record inesistente. 

Questo messaggio viene generato quando si tenti una 
lettura al di la' dell' ultimo record tramite una 
operazione di INPUT# o di GET//. 

Questo messaggio può' anche aver luogo dopo il 
posizionamento ad un record al di la' della fine di un 
file quando si usino i files relatives. 

Se 1' intenzione era quella di espandere il file 
aggiungendo un nuovo record (con un comando PRINT#), il 
messaggio di errore può' essere ignorato. 

Le operazioni di INPUT o di GET non devono essere 
eseguite dopo che questo errore e' stato scoperto, se 
prima non si sia provveduto ad un riposizionamento. 


51 OVERFLOW IN RECORD 

Se 1' istruzione PRINT# va oltre la dimensione del 
record 1' informazione viene troncata. 

Poiché' il ritorno carrello che serve come carattere 
terminatore del record deve essere contabilizzato nella 
dimensione del record stesso, questo messaggio di errore 
può' aver luogo se il numero totale di caratteri nel 
record ( includendo quindi anche il ritorno carrello 
finale) eccede la lunghezza precedentemente assegnata. 


52 FILE TOO LARGE 

File troppo grande. 

Quando si presenta questo messaggio nel posizionamento 
su un record di un file relative ciò' significa che si 
e' avuto un OVERFLOW su disco. 
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60 WRITE FILE OPEN 

Si ha questo messaggio quando un file che era stato 
aperto per scriverci non e' stato richiuso e si tenta di 
leggerlo. 


61 FILE HOT OPEN 

Si ha questo messaggio quando si tenti di accedere ad un 
file in lettura o in scrittura e lo stesso file per il 
DOS non risulti aperto. 

Non sempre avremo pero' questa segnalazione di errore. 
In qualche caso il messaggio non viene generato ed il 
comando di accesso e' semplicemente ignorato, e ciò' e 
bene ricordarlo in fase di scrittura delle eventuali 
routines di controllo dei programmi di accesso ai 
dischi. 


62 FILE NOT FOUND 

Il file non e' stato trovato. 

Il file richiesto non e' stato trovato nel drive 
indicato o perche' non esiste o perche' e' distrutto. 


63 FILE EXISTS 

Avverte che sul dischetto esiste già' un file con lo 
stesso nome. 


64 FILE TYPE MISMATCH 

Il tipo di file specificato nella richiesta non coincide 


- 281 



I SEGRETI DEL 1541 


con quello presente nella Directory. 

65 NO BLOCK 

Tale messaggio si può' presentare nell' uso di un 
comando di BLOCK-ALLOCATE (abbreviato B-A). 

Sta ad indicare che il blocco da allocare e' già' stato 
allocato in precedenza. 

I parametri stanno ad indicare traccia e settore del 
blocco disponibili piu' in alto, cioè' con un numero 
maggiore. 

Se i parametri riportati sono 0 ciò' significa che tutti 
i blocchi di numero piu' alto sono stati utilizzati. 


66 ILLEGAL TRACK AND SECTOR 

Sta ad indicare che il Sistema Operativo del Disco ha 
tentato di accedere ad una traccia o ad un settore che 
non esistono nel formato utilizzato. 

Può' anche rivelare dei problemi di lettura del 
puntatore al blocco successivo. 


67 ILLEGAL SYSTEM T(track) OR S(sector) 

Questo speciale messaggio di errore indica una traccia o 
un settore del sistema non legali. 


70 NO CHANNEL(available) 

Nessun canale richiesto e' disponibile. 

Quindi 0 il canale richiesto non e' disponibile o tutti 
i canali sono già' impegnati. 


282 - 



I SEGRETI DEL 1541 


Come abbiamo visto il DOS consente di aprire solo un 
numero di canali limitato anche dal tipo di accesso. 
Ricordiamo che possono essere aperti contemporaneamente 
al massimo 5 files sequenziali o 6 files ad accesso 
diretto. 


71 DIR ERROR 

Errore nella Directory. 

La BAH (BLOCK AVAILABILITY MAP) non può' essere 

accoppiata con il contatore interno. 

L' errore può' essere generato per problemi di 
allocazione della BAH stessa o quando * si sia 
sovrascritto sulla BAH nella memoria del DOS. 

Per correggere questo problema e' necessario 
reinizializzare il dischetto per riposizionare 
giustamente la BAH nella memoria DOS. 

Alcuni files aperti devono essere chiusi con la fase di 
correzione. 


72 DISK FULL 

Il dischetto e' stato completamente riempito oppure , 
anche con spazio ancora su disco, si e' pero' utilizzta 
1' intera capacita' del Directory di memorizzare i nomi 
di 144 files. 


73 DOS MISMATCH 

La versione del DOS dell' unita' a dischi 1540 e 1541 e' 
la CBM DOS 2.6. 

Le versioni DOS 2.6 e DOS 1.0 ( cioè' quelle delle 

unita' CBH 2040 e 3040) sono compatibili in lettura ma 
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non in scrittura. 

I dischi cioè' possono essere letti con 
intercambiabilità' con i due DOS, ma un disco formattato 
con una delle due versioni non può' essere scritto con 
1' altra perche' la disposizione varia. 

Questo errore viene segnalato quando si tenti di 
scrivere su un disco che e' stato formattato in un' 
altra versione. 

Purtroppo pero' i DOS 2.6 e 2.5 ( cioè' quelli presenti 
sulle unita' Commodore 8050 e 8250) non sono compatibili 
neppure in lettura. 

Ricordiamo che questo messaggio può' apparire anche dopo 
1' accensione. 

74 DRIVE NOI READY 

Unita' non pronta nel senso che all' interno manca il 
dischetto. 

75 FORMAT SPEED ERROR 

Questo messaggio d' errore si ha solo con 1' unita' 
8250. Indica uno scostamento di velocita' dalla norma 
durante la fase di formattazione. 
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COGNOME... 

NOME . 

INDIRIZZO. 

CAP/CITTA' 


DESIDERO RICEVERE; 


□ GRATUITAMENTE IL CATALOGO EVM ED ESSERE INSERITO NELLA 
MAILING LIST CON TUTTI GLI AGGIORNAMENTI 


□ IL DISCO CONTENENTE I PROGRAMMI INPUT*, SPOOLING, DISK 
MONITOR AL PREZZO DI LIRE 20.000 (IVA COMPRESA) 

□ IL LIBRO LE PERIFERICHE COMMODORE AL PREZZO SPECIALE 
DI L. 20.000 (SC 20%) 

□ IL LIBRO IL SISTEMA OPERATIVO DEL CBM64 CON NASTRO CON 
I PROGRAMMI ; MONITOR, ASSEMBLER, DISASSEMBLER AL PREZZO 
SPECIALE DI 30.000 (SC 20 %) 

□ IL CORSO COMPLETO DI ASSEMBLER PER CBM64 CON REELATIVO 
PROGRAMMA AL PREZZO SPECIALE DI L. 34.000 (SC. 10%) 


□EFFETTTUATE LA SPEDIZIONE IN CONTRASSEGNO. PAGHERÒ' AL 
POSTINO PIU' UN CONTRIBBUTO DI LIRE 4.000 PER SPESE 
POSTALI 

□ALLEGO L' IMPORTO PIU' LIRE 1800 PER CONTRIBUTO SPESE 
POSTALE 
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